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20. (continued) ' _ 

inherint aesthetic quality resulting from its use, typesetting provides 
for the best possible legibility of the final product, whether it be 
hard copy or in the m1cromed1a. However, the most important factor is 
economics* When a large number of nonstandard characters or symbols are 
required, such as in a progranned instruction for symbol learning, 
typesetting can eliminate the massive labor intensive step of hand 
stripping the s>mibols. 
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SECTION I 

INTRODUCTION 

This study describes SCAT^ an automated system for typesetting text and 
inserting spesial graphic symbols In computer authored instructional materials. 
SCAT Is designed to use the programmed Instructional modules for symbol learn- 
ing created by the AUTHOR system (Braby, Parrish, Gultard, and Aagard, 1978) 
as input and to output, ready for the printer, typeset camera-ready masters 
with symbols in place; thus eliminating the massive labor intensive step of 
hand stripping the synibols. 

BACKGROUND 

Publish1r,| technical manuals and training materials for the Navy is 
expensive. In'addition, current publishing practices frequently result in 
late delivery of technical data or delivery In a form unsuitable for the 
intended user. These publishing practices are also subject to prnblems in the 
revising and updating of technical documentation and In the storage, distribu- 
tion, and maintenance of these matrrials. 

The Naval Technical Information Presentafion Program (NTIPP) of th- "^avl 
W. Taylor Naval Ship Research and Development Center is a lar- uri 
to improve the Navy's efficiency 1n publishi'iri ] support 

cf Navy equipment. The goal of ^' -d program uu u.une tn^ >ui> family of 
hardware support documents required for equipment operation, maintenance, 
' logistics support, and training, and to design a state-of-the-art system for 
authoring, composing, illustrating, mastering, repl "atlng, distributing and 
updating these documents. Several Navv organ^ ■ -^tio^ ^-e participating in 
this major effort. The Tralr-v inaly:: and L alua .n Group (TAEG) was 
tasked by the Chirt of N^»va1 Education and Training (CNET) to represent the 
Naval Education and Iraining Command (NAVEDTRACOM) in this effort. 

The present report is the fifth of a series of TAEG reports exploring 
ways of improving technical manuals and trainina materials. The first of 
these studies was a plan for CNET involvement with NTIPP for Improving Navy 
training documents (Braby, 1977), while the second dealt with the use of 
microfiche as an instructional med1ur;i for technical training (Rizzo, 1977). 
The use of computer-based publishing techniques for meeting the publishing 
requirements of the CNET was the subject of th" third study (Keeler, 1977). 
While various options in word processing, text editing, composing, and photo- 
typesetting were studied, computer aids for the thor were not Included. The 
fourth study reports on the development of AUTMriR, a system for computer-aided 
authoring of programmed instruction for s Mibol recognition (Braby, Parrish, 
Guitard, and Aagard, 1978). While AUTHOR does provide powerful aids to the 
author, 1t does not include provision for typesetting or other automated 
preparation of camera-ready masters. 

The study reported here has developed SCAT, a computer based system for 
typesetting the computer authored texts created by the AUTHOR system. This 
typesetting provides inherent aesthetic quality and high legibility, whetner 
the medium is paper or micromedia. In addition, where large numbers of non- 
standard symbols are required (as in a programmed Instruction for symbol 
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learning), the SCAT eliminates the massive labor intensive task of pasting the 
symbols in by hand. Thus, when SCAT is used 1n conjunction with AUTHOR, the 
publishing of programmed instructions for symbol learning consumes hours 
rather than days of labor with concunfitant dollar savings. 

PURPOSE 

Thif report describes SCAT, an automated system for typesettinq special 
graphic symbols as weTi as the text of the programied instructional "materials 
created by AUTHOR, a computer aided authoring system. In addition it out- 
lines tne design architecture of the system so those who have access to similar 
but not Identical equipment will be able to modifv the system for use in their 
environment. ' ' 

ORGANIZATION OF THIS REPORT 

Besides this Introduction, the report contains three additional sect^'ons 
a glossary, and five appendices. S- ion 11 contains an overview of the SCAt' 
system, includinq -nmponent requirements, as well as a flow chart and examples 
ot syste .^„ua, composed text stream, and typeset outDu:;. The technical 

approach oyed In developing SCAT as well as the rationale used in making 
the softwar_ and format decisions is the subject of section III, which will be 
an did to the reader should the system require modifying to accommodate his 
equipment limitations. In section IV, reconit,endat1ons and conclusions are 
made foljowing . nscussion of the important factors Impacting on the automated 
p.epara^ion of computer authored programmed instructions through the tvoe- 
settmg Process A glossary has been Included as,an aid to conmunlcations 
between the SCAT system user and the tvpographer. ' 

Listings of the software used by the COMPOSITION subsystem, which will be 
useful in the event of system alterations, are contained in appendix A The 
substitution tables used by the typographer to make the transmitted code com- 
patible with his part of the sytem are presented In appendix 3. Appendix C is 
^^."^r M f ^ operation and use of the SCAT system. A table of five 

standard data commiim cations codes is reproduced in appendix D along with the 
bmiry, octal, hexadecimal, and decimal equivalents as an aid to the us^r in 
conversing with the typngrapher who may be using an alternative code to trans- 
late characters to decimal equivalents rather>than hexadecimar. Finally 
appendix E is a complete progranined instruc^.ion for teaching present weather 
symbols and demonstrates the quality of typography avillabie 



A discussion of typesetting in general is beyond the scope of this report 
The reader not familiar with the current state of the art in typesetting will 
Tina Fundamentals of Modern C omposition . Seybold, 1977, an excellent source, 
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Section II 



OVERVIEW OF SCAT 

rn,- -l-^ 5"*;°" Provides an overviev/ of SCAT. It is an automated system 
consisting of both hardware and software, for typesetting the text and soecial 
graphic synibols contained In the programmed instructions created by tha AUTHOR 
system. Because most users will not b- able to afford a typesetter the 
system is partitioned into two subsysLems, the user's subsystem, COMPOSITION 
and the typographer's subsystem, TYPESETTING. These two subsys'-ms form the 
necessary links for transforming the digital form of the prog?amm«d instruction 
modules created by the AUTHOR system into camera-ready masters with symbol n 
place Figure 1 shows the functional flow of the data as 1t is transformed 
from tho programmed instruction created by the AUTHOR system into the typeset 
camera-raady masters ready for the printer. Lypesei; 

THE COMPOSITION SUBSYSTEM 

tn t J^ef subsystem consists of the ha-dware and software necessary 
to transform the programmed Instructional text Into the composed text stream 
ol-thr?nMpn'??n.-^ typographer's subsystem. Table 1 lists the components 
oL^H ? 2'?"^'? S'^^system and figures 2 and 3 provide samples of the pro! 
grammed text mpit and composed text stream output, respsctively. 

USER SOFTWARE. The Programmed Instruction disk file is the computer authored 
1™^^''^ and stored by the AUTHOR system. While it is the output of the 
AUTHOR system, it is the input to the SCAT system. The Symbol Table is a dfta 
file containing a matrix of the symbol mnemonic codes employed by the AUTHOR 
systern and the corresponding character conmand strings (consisting of from one 
to five Characters; required by the typesetter to acEess the corresponding 
symbol. The Composed Text Stream Is a file containing the text Imbedded with 
-he symbol character command strings required for the special symbols and the 
other required typesetting commands. J' <"yis ana xnc 

The executive program Is an interactive program provided to initiate the 
functions to be performed by the user. While 1t'ls not a necessary part of the 
system. It decreases to a minimum the level of skills required to operate the 

The three functional modules each contain the necessary software to 
perform the designated function. COMPOSE performs the actual text manipula- 
tion, transformng the Programmed Instruction file, in record format. Into text 
stream format. Simultaneously it makes the required substitutions of character 
command strings for the symbol mnemonics, as dictated by the Symbol Table, and 
nserts the necessary typesetting cormiands. The second module, LIST, creates a 
ineprinte.r listing of the resultant Composed Text Stream file, which may be 
used for 'Jroofing the code before it is transmitted or for editing the trans- 
^^BAMLJ^P°9'"^P^er in the event of a transmittal error. The final 
user module. TRANSMIT, sends the Composed Text Stream to the typcgrapher over 
the commercial telephone lines. 

USER HARDWARE. The hardware associated with the COMPOSITION subsysterr is of 
the Wang 2200 series. The central processing i-nlt (CPU), required for all 
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Figure 1. Overview of SCAT 
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TABLE 1. COMPOSITION SUBSYSTEM COMPONENTS 



SOFTWARE 

Data Files 

Prograimied Instruction 
Symbo! Table 
nmposed Text Stream 

Executive Program 

START 

Functional Modules 

COMPOSE 
LIST 

TRANSMIT 

HARDWARE 

Central Processing Unit: Wang 2200 VP and 



Wang 2200 MVP 

(minimum 32K bytes of memory required) 



Terminal : 



Wang 22t6 Keyboard/CRT 



Printer: 



Wang 2221 and 

Wang 2260 used Interchangeably 
(OptionrU required only for LIST 



function) 



Mass Storage; 



Floppy Disk Drives 
Platter Disk Drives 




and 2 platter disk drives available) 



configuration uiad had 5 floppy 



Telecormiunlcations Interface: 



Controller 



Wang 2227 Telecommunications Controller 

Anderson Jacobson AD 342 Acoustic Data 
Access Coupler (Bell 103-A compatible) 



Modem 
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OPTlDNflL.CSXTgc lON.TiS" 003? 

Directions 1i CHt^k ysu^ rnsujaps nam. 

2. put in X through your ujrorig 

ansuiert, 

1. ■« ^31. / %''S. 

2. 4 %4,5, 

3. 6 XaC, 

5. ? i^S?. 

6. ^ %70. 

7. « '^an. 



Go to 00 3^ 



Figure 2. Pfogrammed Instruction Sample Page Listing 
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iBio7 saiqi 

»bt let 

itr lelS9 

Site Idt6g,33p,6p 

xeo.iti ibt 

OPTlONALfeCRITERIONfeTESTItl 

*bt . Set 

•fci" Sel3S 

Site Ibt 

%B&.%tX lli 

*et Itj 

Iel07 let 

ibt Sel4S 

6dtfig,l0p,as,gip,6p 

Site Sb107 

XSO.itl Ibt 

let Igg 

^BlOJ Difectionaiti 

Ibt Igl 

Check your anawerB riQw.ltl 

^stc let 

?t70.|tl Iel07 

let Ibt 

iel07 itl 

f?* 2. Put an X through your w-ongi 

itr let 

Site Ibt 

%S0.ltl Itl 

8e t aTjswBf s .Itl 

Ib107 let 

Idt6g,3pa0p,a0p,6p 

iBl07 Ibt 

ieliS Int 

Iel07 Igg 

iellS NumbBr'sltc 

idt6g ,10p,2g ,Slp,6p Answersltl 

Ibt let 

itl iel07 

SellLi Ibt 

Iel99 Igl 

lellS Itr 

Go to Ig4 3!tc 

33*tr %3l. I %3a.ltl 

let Set 

lellfi Ib107 

Iqc Ibt 

Sells Itr 

*■ <-lte 49tc 

%45.ltl 

Figure 3, Programned Instruction Sample Intermediary Text 
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three functions * must be a Wang 2200 VP or a Wang 2200 MVP because the con- 
catenation Instruction is used. The mass storage medium 1s used to store and 
access the three disk files as well as the functional programs and Is also 
required for all three functions. The teleconinunlcations controller and modem 
are required for the TRANSMIT function to get the Composed Text Stream to the 
typographer- s subsystem, TYPESETTING, The Uneprinter 1s needed for the LIST 
function 1n order to obtain a listing of the Composed Text Stream. Although 
this listing and, hence, the function and the Uneprinter are not required, it 
is nice to have, and most computer installations will have at least one printer, 

THE TYPESETTING SUBSYSTEM 

The typographer* s portion of the system, TYPESETTING, contains the hard- 
ware and software to transform the Composed Text Stream received from the 
COMPOSITION subsystem into the final typeset camera-ready masters required by 
the printer. Table 2 lists the components of the TYPESETTING subsystem, and 
figure 4 depicts a sample of the typeset output, 2 

TYPOGRAPHER'S SOFTWARE. The four functional modules each contain the necessary 
software for performing the indicated function using the associated hardware, 
RECEIVE receives the Composed Text Stream over commercial telephone lines and 
stores it in a disk file for later processing. JUSTIFY creates the Justified 
Text file on the punched paper tape which drives the typesetter using the 
Composed Text Stream as input and the Reference Tables for substituting type- 
setter peculiar commands and determining Individual character widths, TYPESET 
performs the phototypesetting using the punched paper tape as input and exposinc 
photosensitive paper (or film) with the specified characters at the prescribed 
locations as output. The exposed paper (film) is developed in the PHOTOPROCESS 
function* which passes it through chemical baths and washes and a dryer, thus 
making the camera-ready masters. 

The Composed Text filSj Reference Tables, and Justified Text file are 
digital data files. The Composed Text file holds the transmitted text and 1s 
Identical to the Composed Text file in the COMPOSITION subsystem. The Reference 
Tables are of two types. The primary tables are the Width Tables which contain 
the individual character width information for each character in each font of 
type. The rther set of Reroi^ence Tables are the "Find and ALTer" (FALT) 
Tables which are similar to the Symbol Table in the COMPOSITION subsystem. 
They are used to substitute the particular typesetting conmiand strings or 
characters required to drive the actual typesetter used in place of the more 
generic commands generated by the COMPOSITION subsystem. The Justified Text 
file Is created on a punched paper tape, because it drives the typesetter 
whose only input device 1s a punched paper tape reader. ^ 

9 

'These are the components of the subsystem used by the typographer to process 
the example shown. Because of different equipments or procedures, other 
typographers may accomplish the same results using a different complement of 
components. 

3 

It should be noted that while a punched paper tape reader was the only Input 
device for this typographer* s typesetters, many typesetters have alternale 
inputs; e.g., magnetic tape, floppy disK, or direct input from the front end 
system computer, 

10 i 

ERIC 



TAEG Report No. 88 
TABLE 2. TYPOGRAPHER'S EqUIPMENT 



SOFTWARE 

Functional Modules 

RECEIVE 
JUSTIFY 
TYPESET 
PHOTOPROCESS 

Data Files 

Composed Text File 

Reference Tables 

Justified Text File (driver tape) 

HARDWARE 

Telecommunications Interface 

Modim Bell 103- A 

Interface Intergraphlcs Intercomm 100 



Front End Composition System 



Penta--Pentaware 



Central Processing Unit 



Data General - Nova II 
with 32k bytes of memory 



Mass Storage 



Diablo 10 Mega byte disk 



Terminal 



Bee Hive, Int. 



Papertapa Output 



Data General Paper Tape Punch 



Typesetter 



Merganthaler VIP - Measurematic 
used Interchangeably with 
Merganthaler VIP^^HS 



Film Processor 



LogEtronics RAP 20 
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OPTIONAL CRITERION TEST 



Directions 



1. Check yom answers now. 



Numbera 
3 
4 
6 
9 
6 
7 
8 



2. Put an X through your wrong 
answera, 
Answera 



Go to 3: 

Figure 4. Prograimied Instruction Sample Page In Typesit f-orm 
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TYPOGRAPHER'S HARDWARE. The hardware associated with the TYPESETTING subsystem 
IS dividedinto six major blocks. The telecormiunl cations interface has a modem 
and a special purpose CPU which allows the typographer to receive and store the 
text to be typeset.4 The Mass Storage devices consist of magnetic platter disk 
drives for storing and holding the Composed Text file and the Reference Tables 
paper tape punches for punching the Justified Text file, and paper tape readers 
for inputting this data to the typesetters. The front end system Is the part 
of the subsystem which massages the data into the form required to drive the 
typesetter. It consists essentially of a small minicomputer system with 
specialized software for typesetting, the usual perlpherals-a tennlnal, disk 
storage, a printer, and a paper tape punch. The front end system usually com- 

bv'?L'?ynl?TmM' *f ^"P"* *ias already been composed 

by the COMPOSITION subsystem, only the justify function is performed. (Thus 
the terminal and printer are not required for other than system control.) The 
typesetters receive the Justified Text through the paper tape readers and 
expose the typesetting medium (paper or film) to light in the required patterns 
as prescribed by the typesetting commands and mediated by the font masters 
The font masters might be considered data files rather than hardware because It 
IS the infoniiation as to where the typeset medium is to be exposed to light and 
where It is to remain unexposed that Is important. Many typesetters maintain 
this information in digital form on magnetic disks. However, the typesetters 

!^ -^5 study use font masters contained on strips of film which are 
inserted into the typesetter. Therefore, the font masters have been Included 
Jh « '"J'^!^®' ^'•"^^ly* the Photoprocessor passes the exposed typesetting medium 
through the necessary chemical baths and washes to develop the medium, then 
dries it, and finally outputs it as the typeset camera-ready masters. 

LABOR 

All of the operations performed by SCAT are highly automated and require 

rnMJnJr''i?^T'"'""H tJaJImt?"-''""'- ^" COMPOSITION subsystem, each functlon- 
COMPOSE, LIST, and TRANSMIT- requires only the depression of a few keys and , 
switches for initiation, after which the function Is accomplished unattended ^ 
The total labor requirement of the COMPOSITION subsystem is only a few minutes 
per programmed instruction. NnnwuBs 

The functions performed by the TYPESETTING subsystem are also highly 
automated, except for the preparation of the required special font masters 
Given original symbols in final art form, the typographer's charge is a flat 
$100 per font master. Since each font master may contain up to 96 graphic 
symbols, this averages to about $1.04 per unique symbol. Labor was negligible 
in the remaining TYPESET functions and the typographer charged only for the 
typesetter usage time. For the sample typeset symbol learning package con- 
tained in appendix E, this averaged $3.34 per page. k y 

ihis special purpose CPU and its associated software permit the typographer 
to receive and translate text to be typeset from a number of diverse sources 
including word processors transmitting in their own codes as well as other 
CPUs transmitting in standard ASCII or EBCDIC codes. 

5 

See the User's Guide in appendix C. 



TAEG Report No, 88 



In another, more extensive test of the SCAT system an entire sample pro- 
grammed instruction was typeset at a total cost of less than one man-hour of 
labor to perform the COMPOSITION functions plus $485 in charges by the typog- 
rapher which Included the cost of making the font master. The only additional 
equipment required, beyond that required by the AUTHOR system, was the tele- 
communications controller and modem. 6 Thus the 113 page programmed instruction 
was typeset at a cost of less than $4*50 per page. By contrast, using the 
traditional system, typing alone would probably have cost more and the hand 
Insertion of over 1,200 symbols would have involved an additional 50 man- 
hours^ of skilled labor. 



^If this additional equipment Is not already a part of the user's configuration, 
it can be rented for about $50 a month or purchased for $1,050» 

^Based upon 2 to 3 minutes per symbol, 
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SECTION III 
SYSTEM -DESIGN 

This section reviews the system design considerations and the rationale 
used In the development of SCAT. It is in two parts: the Functional Design, 
which addresses the functions required far producing the camera-ready masters 
with symbols in place, and the Output Format Design, which addresses the 
compositional form of this output. 

FUNCTIONAL DESIGN 

TYPESETTING. Ordinarily, when any graphics, such as photographs, line-drawings 
or nonalphanumerlc characters, are required to be printed, they are stripped 
(pasted) in by hand. This Is costly and labor Intensive but often unavoidable 
because typewriters and typesetters are not usually able to create othrr than 
standard alphanumeric characters. However, if a sufficiently large number nf 
special symbols or characters are rpnulred. It becomes practical to consider 
having a special font master mnd^ fv reatlng these symbols with a typesetter. 
(This would correspond to :,uViiiy special "ball" made for a Selectric Type- 
writer.) Although this would not be practical on a typewriter because of the 
time and labor required to switch from one set of type to another, it is 
practical for a typesetter because it can switch between font masters auto- 
matically. The cost of creating font masters averages about $1 per symbol (or 
character). The cost of hand stripping a symbol is about $0.25 (assuming 
$6/hr, labor and 2-3 minutes/symbol). Since a symbol need he mastered only 
once If It Is to be typeset, and the cost of stripping in the symbol every time 
it appears is eliminated, the mastering and typesetting method becomes econom- 
ical when a symbol Is to be used more than four times and other costs are not 
increased. For the symbol learning packages created by the AUTHOR system, 
each symbol is used an average of 25 times, giving some degree of confidence 
to the choice of typesetting this material. 

PARTITIONING. The typesetting process requires Inputting the text to be 
typeset, composing -it. Justifying it, and adding the typesetting commands 
necessary to drive the phototypesetter and photoprocessing the output film or 
paper. The phototypesetter is an expensive piece of equipment, requiring a 
trained operator, a photoprocessor, and special photosensitive materials. Its 
procurement is not recortiiiended except for the high volume user. However, for 
the developer of training materials whose volume does not justify the acquisi- 
tion of a typesetter, contracting typesetting requirements to a typographer is 
a viable alternative to traditional document preparation methods. 

A typographer having a modern typesetter will usually have a minicomputer 
system for preparing the text to be typeset. This minicomputer system, called 
a front end system, is used for keying in the text, composing It, justifying 
it, and inserting the typesetting commands required for driving the photo- 
typesetter. The major cost for typesetting is usually the labor required for 
keyboarding the text. Since the text created by the AUTHOR system is created 
in a computer compatible form, it Is possible to dispense with the typographer's 
keyboarding step. This assumes that the user's computer and the typographer's 
computer share a compatible medium of data exchange. 
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TELECOMMUNICATIONS. The only compatible medium of data exchange available to 
the typographer chosen and the user was a 300-baud telecommunications link. 
The introduction of the telecommunications link added the requirement for a 
transmitting function to the user's tasks and a receiving function to the 
typographer's tasks. 

FUNCTION ALLOCATION. In deciding which functions could best be performed by 
the user and which functions could best be left for the typographer's system to 
perform, 1t was necessary to consider the data format. The programmed instruc- 
ticn as created by the AUTHOR system is in record format; i.e., each page of 
1nst:^uct1on occupied a physical record block consisting of prtcisely .6 logical 
records of exactly 64 characters each, regardless of whether a page contained 
one word or 200 words. While this format is convenient for manipulating data 
files (as is done in creating the proyrammed instruction) i the typographer's 
system is dp Mgned to operate on material which is in text stream format; i.e., 
terminating a line with an end-of-line command rather than filling it out with 
blanks and skipping blank lines rather than filling them with 64 blanks. (With 
proportionally spaced type, the number of characters which will fit on a line 
is not known until after the text has been justified,) Since the record format 
is a less efficient form for data transmission, where a large portion of the 
data may be blanks , the required conditioning of the programmed Instruction to 
convert it from data record format to text stream format was allocated to the 
user's system* 

In addition, the mnemonic codes used by the AUTHOR system to represent the 
special symbols were required to be converted to the typesetting command 
strings recognizable to the typesetter. The typographer could have performed 
this task because of the special telecommunications Interface he had, but to 
more generalize the process to other typographers and because it could be 
readily accomplished using a symbol table, this conversion was allocated to the 
user. 

Composing is still another task to be performed. Composing entails 
assigning where everything is to appear on the page and in what size and 
typeface it will be set. Although the AUTHOR system's output was "composed*' to 
the extent of determining where everything was to appear, it did not indicate 
in what size or typeface the text was to be set because it was designed for 
lineprinter or typewriter output. This information is usually keyed in by the 
operator as the text 1s being keyboarded into the front end system. However, 
since the keyboarding step was being eliminated, other provisions were re- 
quired. The conversion from record format to text stream format and the 
translation of the sjnnbol mnemonic codes to typesetting corrmand strings were 
already being done by the user's system* Also, the Insertion of the generic 
typesetting commands to change from font to font and point size to point size 
could be more easily implemented as a part of the user's system than the typo- 
grapher's production oriented system. Therefore, the reformatting of the 
textual data, the translation of the symbol codes, and the adding of the 
generic typesetting codes for composition were combined and performed simul* 
taneously in a user function called COMPOSE. 

A listing of the data output by the COMPOSE function was required for 
debugging purposes during system development. This listing function has been 
maintained as a proofing tool and for use in editing the transmitted text in 
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the event of an error in transmission. It is called LIST and has been included 
as_a separate function because in the user's multiuser environment, a line- 
pnnter may not be avanable at all times when a terminal is available for 
performing other functions. 

The remaining user function is that reauired to transmit the data to the 
typographer's system. Maintaining this function, TRANSMIT, as a separate 
function minimizes m hardwarp required to ue available at the same time the 
typographer is ready to receive the data transmittal. 

The justifying function which fills the typeset line or measure with text 
requires width information for each character of each font in each point size 
used and relatively sophisticated software to Implement it. This function was 
therefore allocated to the typographer's system where the necessary data and 
software already existed. This function, called JUSTIFY, also included the 
insertion of typesetting commands peculiar to the typographer's typesetters. 

The actual typesetting and photoprocessing functions were allocated to the 
typographer's systems and called TYPESET and PHOTOPROCESS, respectively. 

To summarize,' the functions of COMPOSE, LIST, and TRANSMIT made up the sub- 
system called COMPOSITION and were allocated to the user's system The func- 

^«?L°?YpliTTf^.^"^'^r^' ^^Pf?^^' PHOTOPROCESS made up the subsystem 
called TYPESETTING, and were allocated to the typographer's system. 

OUTPUT FORMAT DESIGN 

The output format, with few exceptions, maintains the line breaks and page 
flM?unn system, which preserves the lineprinter output of the 

AUTHOR system as a close approximation of the final typeset output Although 
this has resulted in the preservation of some widows and orphansS which might 
otherwise have been eliminated through good composition practices it was 
necessitated by the numerous page references contained in the programmed text 
Kw ^.h J3?u^5^^® ''°"^s (required repeating many of the functions performed 
by the AUTHOR system.) Preserving the line breaks generated bv the AUTHOR 
system also avoids excessive compression of the text toward the top of a page 
which would otherwise occur in switching to proportionally spaced type 5 
exceptions to this rule have occurred where emboldening of text has caused a 
line to exceed its measure (i.e.. the width assigned to it) but was otherwise 
adhered to with the result that the text, set ragged-r1ght,lO is sometimes 
exceptionally ragged. 

g 

When a paragraph has been broken between two pages so that one page contains 
only one line, the isolated line is referred to as a "widow " When a 
paragraph ends with only one word on the last line, the isolated word is re- 
ferred to as an "orphan." Both widows and orphans are anathema to compositors 
and typographers. 

g 

Approximately 25 percent more characters may be set on a line of proportionally, 
spaced type as can be set in monospaced typewriter or lineprinter type in '■he 
same type size. ' - -/k «- 

^°Typeset material which is set with an uneven (ragged) rinht-hand margin is 
referred to as being set "ragged-right." ' 

17 
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Outsi'di of the constraints on line breaks and pagination mentioned above, 
the only limitations to composition were those Imposed by automation and good 
composition practice. Thus, page heads were set in Helvetica Bold, side heads 
were set In Century School book Bold, and the body text was set in Century 
.jchoolbook. (Because the final user medium would sometimes be in the micro- 
media, the use of nonconventional or highly stylized typefaces was avoided.) 
To facilitate plate making, cut marks were set at the top and bottom of each 
page. To facilitate frame location in the programmed Instruction, page numbers 
were located differently for microfiche and hard copy. When the medium was 
microfiche, the frame number was set in the middle of both the bottom and top 
of each frame. Thus the current frame number would always be visible even if 
the frame were poorly aligned. When the medium was hard copy, the page numbers 
were set at the upper right corner of odd numbered pages and upper left corner 
of even numbered pages. 
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SECTION IV 

CONCLUSIONS AND RECOMMENDATIONS 

^ The present study has demonstrated significant labor savings ard concomi- 
cant dollar savings through the use of the System for Computer Autoinated 
Typesetting (SCAT) when nonalphanumeric characters or symbols are required 
in the camera-ready masters of a computer authored text. In addition, the 
sample of programmed Instruction produced by SCAT (see appendix E) Indicates 
the high aesthetic quality inherent 1n typeset material (Independent of the 
symbols). Finally, the study has shown that SCAT easily Implementable 

system for use In conjunction with the computer authored symbol learning 
packages created by the AUTHOR system. Accordingly. SCAT: 

• 1s cost effective In preparing the camera-ready masters 
whenever nonalphanumeric characters are required 

• improves the aesthetic quality of computer authored 
texts because the output is typeset 

• provides an economical and easily implemented means for 
typesetting computer authored texts by separating the composing 
and typesetting functions. 

Although the use of SCAT or a similar automated typesetting system is 
clearly indicated, the final form of an automated system is not as firmly 
established. It is possible that further material savings could accrue 
through the use of a more sophisticated compositor system. Such a system 
would make more effective use of proportionally spaced type, thus producing 
additional savings. This might be best accomplished by incorporating the 
composition subsystem as a part of the AUTHOR system. Alternatively, employim 
distributed processing techniques in the AUTHOR system with the typographer's ' 
front end system merging and composing the progranmed text from the AUTHOR 
system's data base should also be considered. 

Based on these observations, the following is recommended: 

• the SCAT or a similar system be used to automatically typeset 
instructional materials for symbol learning created by the 
AUTHOR system ' 

• a SCAT-I1ke system be incorporated into the AUTHOR system to 
accommodate instructional material for procedure learning to be 
developed by the next generation AUTHOR system. 
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GLOSSARY OF 
TECHNICAL TERMS USED IN THIS REPORT 
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GLOSSARY 

^^^^^ Amen can National Standard Code for Information Inter- 

change—a comnon 7-b1t digital computer code. 

A metric of the speed at which signals may be transmitted. 
300 baud equals 300 bits per second In a train of binary 
bits, or about 30 alphanumeric characters per second. 

boilerplate A set of repetitive blocks of text which may be included 

routinely without the need to be re-created. 

Camera-ready Textual material to be printed in a form from which the 

masters printer can make a photoengraved printing plate. 

CNET Chief of Naval Education and Training 

Central Processing Unit— the heart of a digital computer 
which performs or conmands the performance of the 
programmed instructions. 

CRT Display/ 

Keyboard Cathode Ray Tube Display/Keyboard— a device resembling 

a small television monitor with a typewriter keyboard 
used to input information to the CPU. Also frequently 
referred to as a Video Display Terminal (VDT). 

®" J vaflable metric, usually about the width of an uppercase 

"M" 1n the type face and point size being set. 

em-space A fixed space of one em 1n width. Sometimes called a mutt. 

®" A variable metric usually about k the width of an em. but 

inost frequently the width of the digits in the type face 
and point size being set. 

en-space A fixed space one en in width. Sometimes called a nut or 

figure space. 

FALT Table Find and ALTer table— name assioned to Penta's substitution 

tables. 

A standard assortment of signs of a particular graphic 
design. 
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GLOSSARY (continued) 



font master 



grapnic 
justified 

leadering 

leading 

measure 
modem 



monospaced type 

NTIPP 
orphan 

photoprocessor 

phototypesetter 
processor 



A set of coded information used for producing the signs 
of a given font. In phototypesetters , one font master 
may be used to set characters over a range of sizes by 
varying the magnification used in the optical path of 
the typesetter. 

Anything other than standard alphanumeric characters 
to be printed. 

Composed lines of text where ths left and right margins 
are even. This is accomplished by adjusting the variable 
spacebands. See ragged* 

The filling of a portion of the line measure with a 
repeated character, most often a string of periods. 
(Rhymes with metering,) 



A measure of the vertical distance between 
rows of text. (Rhymes with heading J 



zontal 



The set width of a line, usually specified In points. 

Modulator/Demodulator--an electronic device for converting 
digital data to an analog signal (modulating) which may 
be transmitted over comnercial telephone lines and for 
converting the transmitted analog signal back to digital 
form (demodulating) for processing by a remote digital 
device* 

Type which is characterized by having all characters 
take up the same horizontal space, regardless of the 
width actually required. See proportional spaced 
type. 

Naval Technical Information Presentation Program 

An isolated single word appearing on the last line of 
a paragraph. Orphans are anathema to comoosltors 
and typographers* 

An electro-chemical-mechanical device for completing 

the process initiated by the phototypesetter in the prtpara^ 

tion of camera-ready masters or micromedia masters* 

Also referred to simply as a processor. 

An alectro-opto-mechanical device for creating the exposer 
film for camera-ready masters. 

See photoprocessor. 
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GLOSSARY (continued) 



proportionally 
spaced type 

quad center 



quad left 

quad right 

ragged 
RAM 

reverse leading 

sans-serif 
serif 

spaceband 

Stripping 



TTS 



Type in which each character has a width equal to that 
which is required to print it. See monospaced type, 

A composing command which causes the typesetter to 
center the text in the line measure and fill out both 
ends with white space. This is most often used for 
centering headings* 

A composing coninand which causes the typesetter to place 
the text at the left of the line and to fill out the 
line measure to the right with white space. Successive 
lines of chis result 1n text set ragged-right, 

A composing command which causes the typesetter to place 
the text at the right of tha line measure and to fill 
out the line measure to the left with white space. 
Successive lines result in text set ragged-left. 

Composed lines of text where the margins are not even. 
See quad left and quad right. 

Random Access Memory--usuany a solid state memory which 
is volatile^ i.ep, is lost when power is removed and 
must be re-loaded when power is restored. 

The ability of a typesetter to move the typeset medium 
in the opposite direction. Often used in order to set a 
second column along side a first* 

Type which does not have serifs. See serif. 

The short lines stemming from and at an angle to the upper 
and lower ends of the strokes of a character. Also type 
whose characters have serifs* 

A space of indeterminate width (though nominally about 
1/3 of an em-space) which may be varied to help justify 
a 1 1 ne * 

The hand pasting of strips of typeset text into the 
final camera-ready fom^ and by extension^ the hand 
pasting of any materials (e.g.s nonstandard characters 
or logos) to complete the camera-ready master. 

Training Analysis and Evaluation Group 

TeleTyptSetting Code--a 6-bit communications code 
especially designed for transmitting text using 
paper-tape. 
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GLOSSARY (continued) 
type face a particular design of type characters, 

typesetter See phototypesetter. 

widow An Isolated first or last line of a paragraph appearing 

at the bottom or top of a page when a paragraph transcends 
two pages. Widows are anathema to compositors. 
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APPENDIX A 
LISTINGS OF PROGRAMS USED BY SCAT 



ERIC 



29 



81 



TAES Report No. 88 



START 



This program is the executive program of the COMPOSE subsystem, 
and loads the other user programs used by the system. 



It calls 
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START 



0000 

0008 

0009 
■ 

0010 
-0011 



"OOie 

-0013 
-0014 



cm §iicies)4,e3tciiS)i3 

D|H MM3tHSi3,Wii,SffS,itiB,S?©i 
I AiSTRACT 

1 ell^et th^"lJi^SH^f!?^ aviileblt to tht VYPMifT ^yettai 

y iin to 6l pPfSrJfSf ^ dwfwinQ tht FWCTIW KiY corrtspundi^a to tht fu 



-OOiO % FUWTION RlY 
--OOfl % 1 

-ooli % i 

-OOiS % 3 
-0014 % 4 

-ooiB % es 

0030 PRINT NEK < 03) 
I PRINTUSINO 11 

t pnim 

: PRlNTUilNG li 
^ I KfVlN SM 
-0040 PRINT HEX (03) 
I PRlNTUilNC i3 
: PRINT 

t PRlNTUilNG ao 
: PRINT 
I PRINT 

t PRINTUSING ai 
I PRINT 

: PRINTUiING Si 
: PRINT 

I pRiNTusiNG ea 

t PRINT 

: PRINTUSINO 84 
I PRINT 
: PRINT 

I pRiNTusiNe es 

I PRINT 

t PRiNTUiINO 14 
I KEY IN est 
OOSO ON VAL(SM)GOTO SI, BE, 53, 54 
I ON VAL(SSS)»i4 GOTO too 

I GOTO 40 

-0051 GOiUB a 
I GOTO 40 

-OOSe GOSUB *B 
I GOTO 40 

0053 GOiUB '3 
t GOTO 40 

0054 GOSUB '4 
: GOTO 40 

0059 GOiUB '9 
S GOTO 40 

0100 DIFFNU 
0110 PRINT HEH(03) 
I PRINTUSING 111 

* pRjNT 

I PRiNtuaiNc iia 

: KEYIN S0» 

* PRINT 

: PRlNTUilNG 113,A0*f 
I INPUT AOt 
I GOiUB '100<0,AOi) 
: NO«aj»TRANSLAT" 
I PRINT 

: PRINTUSING 114tN0$5 
: INPUT NOi 



wnf^tew FWCTIW DiiCRIPTION 

MILitl ^•PMid Text. 
TRANSIT thf Casemfd Text. 

ALTER SMMl Trdimlatlsn Tfiblif ryBtfstttiM to^its. 
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i DATA LOAD DC Sit 0,830 0 

^0111 I Load the difN esntaifiing the tsbit ia b£ isdifid and diprtim' RiTURN. 
-Olli I NOTE: Thi standard translation tablt* 7RANSLAT. is ©n th# TYPiSIT 

systei disk. 

-Oils %lnpa% addrtss of the disk esntainiviQ the tablt to bt udifitd <###) ... 
-^0114 llnput nne of the table to b§ loHifitfd (########) ... 

Oils PHINT HlHCOa) 
-0110 PRINT ATOS, 0,640) 
: PRINT 

I PRINTUSING liB 
t PRINTUSINO 129 

1 INPUT ' %U 

I IF U^O THEN U^lti 

I IF U > 0 U < 100 THEN 130 

: RiH ERROR 

I PRINT HEKC07) 

I GOTO lao 

-OiiS linput the Nuiber of the MneioTinic Code to bt ilttred. ^ 

■^OISS % NOTEi interins a blink Nil! in^rtient the count to the next code. 

-0130 I ^ U 

I PRINT AT < 14, 0.140) 

I PRINT AT(16U0)|I 

t PRINT jSltfDjSliO) 

I PRINTUiiNG 138 

I PRlNTUiZNC 139 

I U*»» • 

I INPUT " SU* 

; IF LiNCUi) * 4 THEN SlS<I)sUi 

: PRINT AT<S4,0) 

t PRINT AT{13,10)?ItBl$Cl)tS3tCI) 
% PRINT AT(0,0,3E0) 
t PRINTUBING 13S 
I PRINT 

I PRINTUBING 137 

1 GOTO leo 

-013€ %Depfiss SPECIAL FUNCTION " XS when ^It lodifieation is coiplett- 
-0137 % NO. HNEMOHIC JOE TVPEE ^ flNG CODE 

-013E ITo change Hntionic Code, INPUT a NEfel 4-character Hneionic Code. 
-013i % NOTE I Any input containini other than 4-characters Nil! be innoredi 

01S9 DATA SAVE DC BlfO.eSiO 
t DATA SAME DC GLOBE 

2 RETURN 

-OEOO DEFFN'a 

I PRINT HEX (03) 

PRINT •COHPOBE' 
: PRINTUSINC iOl 
: KEVIN sot 
: PRINTUSING SOe,AO$ 
: INPUT AOt 
t GOBUi 'iOOCl,AOf) 
: IF N^-iTHEN BOO 
I PRINTUSlNG eoStNOi 
I INPUT NOf 

: DATA LOAD DC OPEN T#l,NOi 

: DATA LOAD DC BlfO;B3iO 
^OiOl ILoad disk containing translation table to be used and depress RETURN. 
-OEOE llnput address of disk containing tablt to be used ... 
--OeOB IlnRut naae of translation table to be used (##ft###ll#) ... 
-0210 PRINTUBING ail 

I KEYIN Bdi 

I PRINTUSING Eie,AO$ 

I INPUT A0$ 

I eOSUB 'lOOCl.AOt) 

I IF N^-ITHEN SOO 

I N0i^»COMPOBiD" 

: PRINTUSING 213, NO* 

I INPUT N0$ 

-OSll iLoad disk on Nhich CoBposed Text is to bt stored and depress RETURN. 
-OEli %Input addresi of disk on Nhich Coapostd Te>ci is to be stored (###) ... 
-Oil3 llnput nase Coipostd Te^t is to be stored under (########) ... 
OaSO DATA LOAD DC QPIn Tftg.NOi 
: ERROR GOTO 830 
PRINTUSING aSl,NO* 
B0*^« ■ 
INPUT BO* 

IF BO*<>'V"THEN ilO 
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: GOTO i40 

-0130 PRINTUSINC 131 
I N<100 
I INPUT N 

: DATA MVE DC OPIN T #S,CN)*NOi 
-Ogil llRgut nuibcr sf pagts ia b@ coBposed ... 
-0240 LOAD T^TYPl.lNl" 

: LOAD T-TYPi.TSTMEO 1000 

I GOTO 40 

-0300 DIFFN^3_ 

I PRINT H1X(03) 
: PRINT ■LIST* 
: PRXNTUiiNG 301 
t KEVIN iOt 
I PRINTUeiNG 30e.A0i 
I INPUT AO* 
I GDSUB 'lOOtijAOf } 
I IP N^-ITHEN 300 
I PRINTL^ING 303tNO$ 
I INPUT NOf 

t DATA LOAD DC OPEN T#i,NOi 
t ERROR GOTO 300 
I LOAD T'^LIiT.ITSiEGlOOO 

t GOTO 40 

-0301 %LQfld disk pn Nhi^h Csspssid Tuxt is itortd «nd d»f*t59 RETURN. 
-030i %Inpui address of disN froa Nhleh Cs«»ssid TsKt is i© bt iisttd <###)... 
"Sf2l i^flfiHt^^"^ Coipootd TiKt to bf listtd is stortd undtr (#####«##) 
-0400 DEFFN'4 

i PRINT HEX < 03) 
5 PRINT nRANS UT" 
I PRINTUiINO 301 
I KlYIN iOf 
t PRINTUSING 40atA0i 
: INPUT AOS 

t GDSUB aooce,AO$) 

: IF N»-1THEN 400 
I PRINTUSINC 403,N0$ 
I INPUT NOi 

: DATA LOAD DC OPEN T#S,N0$ 
: ERROR GOTO 400 
I LOAD T*iEND,ITSlEQiOOO 

Z GOTO 40 

"SfSi Si^P"* addrtss of disk ffsi whlth CeiPosed TwHt is to bt transsittid C###) 
iiSiHt*5i?S T^^* *o bt transilttid is stoptd undur <#»«##«#«) ... 

0500 DiFFN'100(N|A0$) 

I IF poi c "aiip ^ ^STR c AO* a , 1 ) )»POi ( • laiss? ■ •sfr ( aos *a - 1 > )#pos < ■ oia34S" ■str < AOi ,3 , i > > oo 

THEN SELECT #N<AO$> ua%w*c™ _ i « #%^v 

I ELSE N«-l 
: RETURN 

-0900 DEFFN'S 
0910 PRINT H1KC03) 
I PRINTUBING ill 
t PRINT 

1 PRINTUiING Hi 
i KEVIN iM 
I PRINT 

1 PRINTUSING li3pA0$| 
I INPUT AO* 
I GOSUi 'iOO<0,AO«) 
I AOS**TRANiLAT* 
I PRINT 

I PRINTUSING 114, AOS ; 
I INPUT AOf 

I DATA LOAD DC OPEN TAOt 
„„l DATA LOAD DC Sl«C>,S3f<> 

-OKO PRINT AT(li,0,S40) 
t PRINT 

: PRINTUSING 918 
I PRINTUeiNa 119 
1 U»0 
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1 WPUl ' su 
S IP U»0 THIN 

I 1F_U > 0 AND U < iOO THEN 130 
I QOrO MS 

'^OMS llnput thi Nu^btr of tht Typfoetting Code to bt alttr#d. 
©iiO lay 

3 PRINT AT(14,0,€40) 
i PRINT AT<ia,10)U 
i PRINT ,Slf a)jS3$<l) 
I PRlNTUeiNO MS 

: PRiNTuaiNr/ I3§ 

S INPUT ' ^,IJ$ 
I IF LIN cut) >13 THEN GOTO 990 
I IF U»<>» "THIN B3liCI)i^U§ 
I PRINT AT(e4,0> 

: PRINT AT(l?,10ni.Si$CI) ,S3$(I) 
i PRINT AT(0,0,3S0) 
I PRlNTUeiNG 136 
: PRINT 

: PRINTUBING 137 
I ODTQ liO 

-Ofll XTo change Typtsettinft Codt, INPUT tht NEW TMPeittting Code. 

"^2111 Sffilll ^ BLANK will rtsult in no chanqt. Hort than 13-gharaet#rs is illtial. 
-QMO RIH ERROR 

: PRINT HEX (07) 

I GOTO S?£0 

-ISOO DEFPN'IS 

I PRINT HEX (03) 

I PRINTUSINO 1501 

I INPUT iOf 

I IF iOt^^N" THEN 40 

S IF eO*<>^8"THEN 1500 

I PRINTUSINO 150a,A0$ 

; INPUT AO* 

: GOiUB 'iOO(0,AO$) 

I IF Ns-ITHIN iiOO 

I PRINTUeiNG 1B03,NO$ 

t INPUT NOf 

"1501 ZInput "B" if niw tablt ii to be savidi othtrNimt ineut "N^: 
-liOe llnput disk addrtss of dimk on whieh ntN tablt is to bt stortd (###) ... 
-1503 llnput nait of niN tablt (########) ... 
1510 DATA LOAD DC OPEN TNO* 

: ERROR GOTO 15E0 

I PRINTUSING 1511 tN0$ 

I sot*" ■ 

I INPUT iO» 

: IF SOfO'VTHEN 1500 
I DATA SAME DC Sl$()tS3$() 
I DATA SAME DC END 
: GOTO 40 

-1511 1»#########* is alrtady catalogutd, do wou wish to OVERWRirg it (V.N) 
-liiO DATA SAVE DC OPEN T(10) NO* 

: DATA SAVE DC Sl*( Sa3i() 

I DATA SAVE DC END 

I GOTO 40 
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S T A RET 



oooB cm si$iiea)4,^t{igg>ii 

I KM I IMS Storagt addrtsstft 

OOiO I APiTMCT 

-*001i I This sfsgrn Im dtsisntd to mm m Miicutivi #er th9 reiainin^ TVPEiE 
T ppoifiii. It dim^ls^ a itnu of funetiarm svaiii^bi© im thg TVFliiT mustf 
1 snd lo«^ thi pr^grns nt^mary for psrfofBifia th@ sslftcttd function. 

*001i I Tciuch RETURN to dll^lfiy se^u 

^0013 ZTht follsfvivii fun^ibns art availablfi to tht TYPEiET luettif 

-0014 % Silirt ^he dnirtd function by dtprMsinQ tht FWCTIW K£Y corrfrseondlna 

to tht function to bt ptrforiid. 
-0010 1 FI^CTI^ KlY Hl^TlW DiKRlPTlC»J 

"SSil i i lypbol Translation tafelt Hntionie Codts, 

-OOii 1 I caiPTOE tht toaeuttr Authoftd Tt^t. 

-OOii I 3 LliT tht Coipostd T»it* 

-0014 I 4 TAA^IT thi teamtd Tt^t. 

-OOSS %_ IS ALTER syabol Translation Tablt Tuptstttinq Codts. 



0030 


PRINT HEX (03) 


a 
i 


PRINTUSING 


11 


■ 


PRll^ 




■ 


PRINTUiINO 


it 




KEVIN iH 




-0040 


PRINT Hl)<<03) 




PRINTUiINO 


13 


• 


PRINT 






PRINTUSINO 


ao 




PRINT 




» 


PRINT 




m ■ 


PRINTl^ING 


El 


i 


PRINT 




9 


PRINTUSING 


li 


a 


PRINT 




■ 


PRINTUSING 


as 


• 


PRINT 






PRINTUSING 


a4 




PRINT 






PRINT 




9 


PRINTUSING 


as 


9 


PRINT 




9 


PRINTUSING 


14 




KEVIN Sdt 





OOiO ON MAL(S9t)G0TO Bl,5&i53,54 
I ON VALCe9»)-a4 GOTO too 
t ON VALiSt«)-4S GOTO Bl, 51*53, 54 
I PRINT HEKCO?) 
I GOTO 40 

0051 GOSUB '1 
: GOTO 40 

OOSa OOSUB 'B 
: GOTO 40 

00B3 GOSUB '3 
I GOTO 40 

00S4 GOSUB '4 
t GOTO 40 

0059 GOiUB '9 
I GOTO 40 

0100 DlFFNa_ 

0110 PRINT HEKC03) 

% PRINTUSING 111 

I PRINT 

I PRINTUSING 111 

I KEVIN SOi 

■ pRII^f 

I PRINTUSING 113, AOS; 

: INPUT AOS 

I GOSUB_'100(0.A0$) 

I N0»«' TRANSLATE 

i PRINT 

I PRINTUSING 114,N0i| 

% INPUT NOi 

; DATA LOAD DO OPEN TNOi 
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i DATA Lom m siso.sato 

-'Oill 1 Load thi digh eentaining tht tablt to b» isdiftd and dei^rtss RITUm. 
-one 1 NOTl: Thi standard translation tabit, TA^^^AT. im on tht TVFESiT 

systta disNi 

-Oils llnput addrtsi of tht disk ^ontainina ths tabla to ba Bgdifitd C##i) 
^0114 SZnput naataf.ths table to aodifitd c##t#$###} ... 

0119 FRIHT HiK COS) 
-OiaO PRINT ATCiS,0,i40) 
I PRINT 

: PRINTUSING IBB 
I PRINTUilK^ lEi 
I U»0 

S INPUT ■ -11 

I If U«0 THIN Usl+i 

I IF U > 0 AND U < 100 THEN 130 

: RiM IRROR 

I PRINT HiK(07) 

I GOTO 110 

-01i«» llnput thi Nuibtr of th@ Hntionnic Coda to be il ttrtd^ 

-01i9 t NOTE: EnttFitig a blartN Mill in^rtiavtt tht count to tha ntxt codt . 

-0130 I ^ U 

: PRINT AT (14, 0,640) 
PRINT ATC16,iO)il 

t PRINT ,iltci),S3$(I) 

I PRINTUSINO 13S 

• PRINTUSINO lit 

; INPUT • • u* 

t IF LENCUf) m 4 THIN Blf CD^Ui 

I t PRINT AT(i4.0) 

i PRINT ATa3jlO)|IfSlSCI),S3f U) 

: PRINT AT(0.0,SEO) 

I PRINTUSINO 136 

I PRINT 

t FRINTUiiNO 137 

: GOTO lao 

-0131 %Dtpri§s SPECIAL FUNCTION KEY IB Mhin tabla aodifieation is coaolatt. 

-0137 Z_ NO. HNEHWIC CODE TYPESETTING CODE 

-0138 %To chan|t_Hntsonic Codaf INPUT a NEN 4-chara^tir Hntaonic Code, 

^0139 1 NOTE I Any input cpntaininf othtr than 4-eHaracttrs will ba iqnortd 

0199 DATA iAVE DC Sli<),S3i() 
I DATA SAME DC CLOSE 
: RETURN 

-OaoO DEFFN'i 

: PRINT HEK<03) 

: PRINT 'COMPOSE* 

: PRINTUSING ioi 

I KiYlN sot 

I PRINTUSING iOe.AOf 

: INPUT A Of 

: GOiUB 'lOOd.AOf) 

: IF N^-ITHEN BOO 

t PRINTUSING E03,N0f 

I INPUT NO* 

: DATA LOAD DC OPEN T#1*N0$ 

I DATA LOAD DC SliC),e3$<) 
OiOl %Load disk »ntaining tfanslation tablt to bt used and depress RETURN. 
OiOf llnput address of disk containing table to be used (###) 
Oi03 llnput naa^_of translation table to be used (########) ... 
OaiO PillNTUSlNG Ell 

I NEYIN sot 

I PRINTUSING B12,A0f 

: INPUT AOi 

: GOBUB ' 100 (1, AOi) 

I IF N=-lTHiN_SOO 

I NO$-*COHPOSED' 

^ PRINTUSING ai3,N0$ 

I INPUT NOf 

Oill %Load disk on which Coaposed Te^t is to be stored and depress RETURN, 
6&12 %Input address of disk on Mhich Coiposed Text is to be stored (###) 
Oei3 llnput naie Coiposed Text is to be stored under (########) ... 
diaO DATA LOAD DC OPEN T#a,NOS 

i ERROR GOTO 130 

t PRINTUSING Sai.NOi 

t SO*^- " 

J INPUT sot 



36 

3s 



TAES Riport No. 38 



IF SOSO^VTHIN £10 
COTO 240 



"OilO PRINTUSINC 231 
I INPUT N 

t DATA SAVE DC OPKN T #E,(N),NOt 
^OiSl llnput nuBbf r of pages to be CDapamtd * * . 
-0240 LOAD TnVPi.lNl" 

I LOAD T»TYPE.T3TSiEG iOOO 

: GOTO 40 

-0300 DIFFN'3 

t PRINT HEKC03) 
I PRINT •LIST" 
: PRXNTUEING 301 
I KEVIN 00$ 
: PRINTUSING 02, A OS 
: INPUT AOS 
I OOiUB '100Ci,A0$) 
I IF N--1THEN 300 
PRINTUSING 3 03, NO* 
INPUT NOi 

DATA LOAD DC OPEN T#2,N0f 
ERROR GOTO 300 
: LOAD T*LIBT.ITSiEG1000 

I GOTO 40 

'0301 %Load dlmk on Nhlch CaiROsed Tt>ct is itQrtd and dtr'rtss RiTURN* 

'^aISI i^^Pu* addrtis of diik fpoi Nhich CsiPomid TtKt i% to bt listtd 

^aI2I iiSfi!**"^** Coipssid Tixt to be llmttd im stofid undtr (#######4^) ... 

^04 QO DEFFN'4 

I PRINT HEK(03) 

I PRINT •TRANSMIT" 

: PRINTUSING 301 

: KEVIN iOi 

5 PRINTUSING 402, AOi 
I INPUT A0$ 
t OmUB 'lOOCS.AOf) 
I IF N^-ITHEN 400 
: PRINTUSING 403, NOi 
I INPUT N0$ 

: DATA LDADDC OPEN T#£,NOt 

: ERROR GOTO 400 

t LOAD T'SEND.IT' ,BEGi000 

I GOTO 40 

0402 Ilnput addrfim of disk froi which Coipostd TtKt is to bt tran»»ltted (###) 

0403 llnput nant Coppostd to be traniiitttd is stortd undtr 

OSOO DEFFN'lQO^NtAOi) 

i IF POS ( ■3BD ^ ^STR ( AO* , 1 , 1 ) )»POS ( ' 123567 ' *S f R ( AO* ,2 , 1 ) )«POS i " 012341 " 'STH < AO* 

,3,1) )<>0 THEN SELECT «N<AO*> 
t ELSE N^-i 
t RETURN 

0900 DEFFN^9 

0910 PRINT HEX C 03) 

t PRINTUSING ill 

« PR INT 

i PRINTUill^ 112 
; HIYIN 19* 
I PRINT 

i PRINTUilNG 113,A0*; 
I INPUT AO* 
1 OffiUB 'lOOCOtAG*) 
: AO***TRANiLAT* 
% PRINT 

I PRINTUSINO 114, AO* I 
I INPUT AO* 

I DATA LOAD DC OffiN TAO* 

DATA LWD DC S1*()»S3*<) 
09iO PRINT ATai,0,€40) 
I PRINT 
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PRINTUSING 3S8 
PRINTUBING isS 

INPUT • %U 
IF U^O THEN 

IF_U > 0 AND U < 100 THEN 130 
GOTO 990 



-09SB %Input the Nuibtr of the Ty^istttinQ Ced^ to bi altiirfCi. 
o^jgo I » U 



PRINT AT (14, 0*640) 
PRINT AT<16tl6)a 
PRINT ,Bl*a).S3i(I) 
PPJNTUSING §38 
PRINTUSING 939 

INPUT " _ syt 

IF LENCUf ) >13 THEN GOTO 990 
IF Ui<>» ■THIN B3S(I)-U$ 
PRINT AT(E4,0) 

PRINT AT<i3,10)-I31iCI) ,S3sa) 
PRINT ATCO,0,iSO) 
PRINTUBING 136 
I PRINT 
I PRINTUSING 137 
: GOTO lao 

-OfiS %lQ ehangi Typiietting Code, INPUT tht TMPtsfttin^ Codt. 

-0939 % NOTE: A BLANK will rtsult in no ehan^t. Hofi than 13-charaetirs ii ill 

fial, 
-0990 Rih ERROR 

I PRINT HEHC07) 

I GOTO 9E0 

-1500 DEFFN'IS 

I PRINT HEKC03) 

: PRINTUBING 1501 

: INPUT S6$ 

I IF SO$='N" THIN 40 

I IF SOSO'S'THEN IBOO 

: PRINTUBING ISOgtAOt 

I INPUT A0$ 

: G05UB '100(0,A0$) 

% IF Nf-ITHEN iiOO 

: PRINTUBING 1503, NOS 

I INPUT N0$ 

^J501 Ilnput 'B" if ntw tablt is to bt saved: othtrwime ineut ^'N": 
^illi ?Jy^PU* iddr^is tff diiN on which ntn tibli is to b# stertd (###) 

-ii03 JSInput naie of ntw table (########) 
ISIO DATA LOAD DC OPEN TNO$ 

I ERROR GOTO 15B0 

I PRINTUBING IBil^NOt 

: INPUT SOS 

: IF BOSO^VTHEN 1500 

I DATA SAVE DC Bli<),B3in 

DATA SAVE DC iND 
I GOTO 40 

-1511 is already eatalogutd* d© you wish to OWERNRITE it (Y*N) 

-ISaO DATA SAVE K OPEN T(10) NOi 

I DATA SAVE DC Blin,S3i() 

t DATA SAVE DC END 

I GOTO 40 
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TYPE. INI 



This program sets up the Initializing command strings required by the 
typographer's subsystem. It also contains the subroutines requirid for 
addrissing the computer authored text created by the AUTHOR system. 
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TVPE . XNI 

7000 %## Prograi > AUTHOR/3 (ATHSINTl) VtrmAsn S.O SiOO T/VP 7803gl 
700S DEFPN ' SOO 

7010 R4f (01)^HlX(4i6i4ESi436344i44iS54i€S47674B^^ 
7015 R4i C 02 ) -HEX (49S94ASA4BiB4C6C4D6D4fi€E4F€FS0 1 0 ) 
7050 R4f ( 03) ^HIX (B17?,Bi7g53735474iS7Si67€S777Sa7g) 

7025 R4f ^o4)^Hixci97JiA7AiOiOiosoaoaoaoa6aoaoaogoj 

7030 R4$ C Oi ) ^HfX Cfii416a4ES343€444SB456i4ii747&S4S ) 

70iS R4f C 06 ) -HEX (694d6A4A6a4BSC4C€D4D6E4igF4F70i6 ) 

7040 R4f { 07 ) ^HiX C715i7iiE73SS74i475i57iS6V7S77iiS ) 

7045 R4iCOS)^HEX<7i597A5AedSoaoaOi050aoaOiOiOg6gO) 

70iO R4$ ( Oi ) -HEX (S0414i4344454€474S494A4B4C4D4E4F ) 

7055 R4f UO ) ^HEX ( g 08 OS OiOEOiOe 01010101^6^0301 Of 0 ) 

7060 R4f ai)^HEXC010S01A7030D03E61010aoa^OaoiOgd) 

7065 R4$Cia)^HEXC106dg0106006iOi0103010iOdOiOiOg6) 

7070 R4f U3)sHlX(3filpaili3ilSi31334143Sli3iiii7:7) 

7075 R4t ( 14 ) ^HEX <3sis39idaoooaog^goiog^oadaoaoio ) 

7OS0 R4$ < 15 ) ^HEX C 00010l030405g6d7dSOtOAOBOCOD6EdF ) 

7005 R4f <i§)-HEX<iOiOioeoioioediosoioaoeoioiogogo) 

7090 R4t ( 17 ) -HEX < 0 1 0801A7 03E504Ei 05 ODl teOl 01 01 01 0 ) 
7095 R4t < 18 ) ^HEX < 61AOOl080BCB015HOCCAd%80DC?04i9 ) 
7100 R4t( 19 ) sHEX ( OEC3051A05C1061Dd6C407i!B07C609dD ) 

7105 R4$ < eo ) ^HEX ( oAisoaiFoaccDsioioaoaoidsoiQioao ) 

7110 INlT(0A)R6$n 

% RSf <01)-HEX(01) 
7115 lNIT<09)R7$n 

_l R7$<01)^HEX<0D> 
7110 INir(a0)H5$O 

: H5^1 

7115 P$<01)*HEX<400641€0400811114aS04008113S14541i0811^€) 

7130 R8f <01)-HEX(400€A000401i400D400A108d) 

713S R8t<03)^HEXCFFFFS010) 

7140 R8a<04)^HiX<40071E114007liai4007lOeO) 

7145 R8t<05)sHEX<FFFFa6lO) 

7150 R8i< 06 ) -HEX <A0004GOD14S71608400A1(€0 ) 

7155 R8i<07)*HEK<40074007iOiO) 

7160 RS$<08)^HEX<050D14671768050A1010) 

7165 R8$<09)^HEX<dSl63Fi05S6i77000000) 

7170 QO<Oi)sOO / 

I QOCOD^OO 
7175 a6<03)^75 

I Q[0C04)^06 
7180 Q0<05)^00 

: Q0<06)^00 
7185 a0<07)-00 ^ 

% Q0<08)^00 
7190 Q0<09)s01 

% QO<10)3lOB4 
7195 QOCID^OI 

t QOdD^Od 
7197 EBi^'NDT RANGE' 
7eOO RETURN 

7105 DlFFN'i01(Hl,Ke,K3,K4) 
7110 IF KSi^OTHEN 716S 
7115 IF K4O0TH1N 7^15 
7110 K4f81-Ka 
-7115 FOR KS^ITO K3 
7130 IF KSOITHIN 7fi45 

7135 ieiOROW/005<AOOO,RO$<9) )R6$()<l,Kt> 
7140 OOTO 7150 

-7145 iGIDROW/005(AOOO,R8i<9) )R6SC)<1,1> 
-7150 iG10COL/605(A660,Ri*<9) )R7$n<l,Ki> 

7155 $GXQERABE/005CAOOO,R8i(9) )K5in<l,K4> 

7160 NEXT K5 

"7165 fGIORDy/005(A000,R8i<9) )R6i()<l,Kl> 
7170 |GIOCOL/005<A00O,R8$<9) )R7*<)<1,HS> 
7175 RETURN 

7180 DEFFN ' 103 (iiji« ,wi ,m ,m,m ,U5 ) 

7185 DEFFNy (14 ) i^gB6*N+gAL (STR ( Wl$ ,1 , 1 ) ) 

7190 UN N5GOT0 7315,7335,7360,7380 

7195 R8«»"0O» 

7300 R7*»»iubr0Utinf 103* 

7305 OOSUB '000 

7310 GOTO 7455 

-7315 W5^Wl*10OO0*Wa»100+W3 

40 
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73i© BIN (iTR mt ,1,1) ) ^INT < WS/i56 ) 

731S ilN C3TR (Wit ,§ , 1 D ^Wi-INT <WS/aB6 ) »Si6 

7330 GOTO 74Si 

»733i i^S^FNW^VAL^Ulf }) 
7340 ^isINT<Wi/l6000) 

iM% wa^iNTC(Wi"iwi*ioooon/ioo) 

7310 W3=WS-(Wl*10000)-<wa*106) 
735S MTO 74SS 

-73i0 GQSUB 7335 
7365 MSUl 73S0 
7370 GOSQB 7311 
737B GOTO 7415 

«7380 IF W3*W4>Q0a)THgN 739B 
738B W3^W3+W4 
73i0 GOTO T45S 

-7395 IF l(iiS+i>.iO<S)THEH 7415 

7400 Aa^'we+i 

7405 W3=W4fl3-Q0(7) 
7410 GOTO 7455 

-7415 IF l(iil+l>Q0<5)THiN 7440 
74e0 IMl^Wl^i' 
74g5 Na^l 

7436 W3^liJ4+W3-Q0<7) 
7435 GOTO 7455 

-7440 Rit^^OO" 

7445 R7$**SubroutiTie 103" 

7450 GOiUB '000 
-7455 RITURN 

74i0 DEFFNaoe(WS) 

7455 ON WiGOTO 7475, 747B, 7470, 7485 
-7470 PRINT "UNOyFINED BRANCH - « SWS 

I STOP 
-7475 SiLiCT #5005 

74£0 G0SU8 'Hi 
-7485 RETURN 

7490 DEFFN'llfi 

7495 R8$>HE)<(510i} 

7500 R9t<l)^''TQUeh RiTURN* 

7505 «GIDHOriE#5<4001,RS«(9n 

7510 FOR W9»1T0 15 . 

7515 fPACK(F>R8$)iTR(RS$(9) ,7,a)FR0HM9 
75aO W8s64 

I IF W9-1 THEN W3-S3 
75g5 i0I0PRINT#5 ( RSi Cl ) , R8f ( 9 ) )Q« U < < W9-1 )»S4+1 ,W8> 
7530 NiKT iil9 
7535 COTO 7575 

7540 FOR WfplTO lOi4STEP 54 
7S4S KEYIN R8i»7550*7550 
t GOTO 7Sii 

"7550 IF STR(R8»,itl)<>Hi)<a3)THlN 7565 
"7555 KEVIN R8i ,7560,7550 
I GOTO 7555 

-7550 IF iTR(R8$a,l)<>HiHCll)THEN 7555 
-7SS5 Wi»i4 

I IF liifBlTHEN W8«€3 
_ I $GIO/005 ( A000400D400A ,R8t C 9 ) m« () <U9 ,^i> 
7570 NiKT W9 
-7571 RETURN 

7580 %## ProgfM > AUTHlR/3 <ATH3LST5) Mtrslon > i.O EEOO T/VP 780^3 
7585 DEFFN*i01<Wi) 
7590 PRINT HEHC03) 
7595 GOiUB 'i01C10tl«0,0) 
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7^0 STR<Rti^^),ipl)«» ■ 
7f4i GOTO 7iii 

-7iS0 IF ftO«Uj>HfHC3i)THiN 7S60 

7iSS IF RW(l)>Hi)<C30)THEN 7SSS 
-JiiO G08U1 ^101(1,16,0,0) 

7iS5 PRlAlT 'Rf-iNflR* 

7170 iCIUTONE/OOSCRSf C4),RS«(S)) 

7171 ooiub aoi<i3o,i,of 

TiSO OTTO 7wiS 

-7iii CWMIRT ROtCDTO WS 

* 7ite PRINT W€ 

-7i9i CMUl ' 101(7,0,0,0) 

: PRINTUilNO 773i,A5i| 

I INPUT AOt 

■ SELicT^JI*i40*P'^"^^° STRCAOf ,a)<>"i' THEN 7iSS 
-7700 OOiUi ' 101(1,0,0,0) 
: PRINTUSINC 7740, Alt ; 
1 INPUT Alt 

I IF aTR(Al$,a)<>'3»(^ND STR(A1$ , ,1)<>'^" THtN 7700 
• iELECT #1 <A1$> 
7701 GOSUB *101(1S, 0,0,0) 
I PRINTUiINd ?74i,Hl$| 
: INPUT Hit 

I GOSUB '101(17, 0,0,0) 
t PRINTUSING 77S0,Hi$^ 
: INPUT Hi* 

I GaiUB 'lOKlS, 0,0,0) 
I PRINTUiING 77SS,Hi§f 
I INPUT H3* \ 
t GOBUB '101(13,0.0,05 
I PRINTUSING 7?€0,H4i; 
I INPUT H4* 
7710 GOSUB 'lOKSO, 0,0,0) 
I PRINTUSING 776B,HSii 
I INPUT Hit 

: GOSUB 'iOKii, 0,0,0) 
t PRINTUSING 7770,H6*(l),HSi(S),HS$(3)l 
: INPUT Hi$(l),H6$(E),Hef (3) 
771S GOSUB '101(16,1,7,0) 

'IIM 5 Output StltctioR # 1 - CRT (NAIT AFTER EACH PAGE) 

I g * n *4 m n ! * 1 r ^51 WAjr AFTER HACH PAGE) 

-7730 J inttr Option Ffoi Output Stleetion Htnu > # 

% Entfr Disk Addrtss AUTHOR loduli Disktttt (###) > 
% Enttr Disk Addriss POSTPROC Output Dimktttt (###) > 
I Enttr Job Hmmw (#######«#####«#4^###tt####««#N^^ 
% Enttr P/O Nuibtr (#«###•####)- 
% Enttr Todays Ditt (•####»#•##) I 
% Enttr Optrator's Initiils (###)s 
% Enttr Typographic's P/Q (•###) ^ 

X Enttr Job st^utncf nuibtr, first , last ####7: 



-7731 
-7740 
-7741 
-7710 
-7711 
-7T60 
-77il 
"7770 
7771 



RETURN 



7780 DEFFN^e0S(W6) 

7781 IF WS^STHEN 7965 

7790 INIT(iO)Q§() 

7791 INlT(20)Slt() 

7800 Dli'O 

7801 Da^liB 

7810 DATA LJAD BA T#3, C0,D9)Q1$C) 
7815 R0TATE(STR(Qlt(e5),i,l),4) 

7810 D€^VAL(STR(Ql$(e^) ,1,1)) 

7811 DATA LOAD BA T#3 , ( 1 ,D9)Qlf ( ) 
7830 RiM 



initiali^i output fili 



dtfint htadir and fontm usid 



7831 LStO^" - 

7840 DATA LOAD DC OPEN T #1,"TVPESET« 

7841 LIMITS T #1, 0l,DE,O3 
7861 REH 

7870 lNlT(aO)LSi( ) 

I LSi()^HEK(7B) & "dofiO" k HEH(7D) 

t GOSUB '100('1^131, S, 3, 084, 55it086, 134, 3ig, 393.394,395, 396, 141") 
t GOSUB '97 
t GOTO V880 

787S DEFFN'97 



EKLC 
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I CGSUB '%Mi*wn 
I Qomm 'tsiHii) 

I omm 'is^Hit) 

I GOeUB 'IS (Hit) 

i omm 'dscH€«c3)) 

S GOSUS 'iOd<»dl#") 
I RETURN 

-7SS0 R|M^^ - 1^ berfy ttxt - entry schbM (084) - 

7SSS GOiUi 'idO("dfiM 
I GOiUi '10§C*ff) 

7SS0 RIH^ ^^^^^ • bald tt?ct - entry schbN bald (08 

T900 REM • 3^ hiidifiM-hf IvttiM bold pi6)-l4 

7901 GOiUB ^lOOCdfS") 

I GOiUB 'ioorcfisa4,i7") 

t GOiUB 'lOOCtf*) 

Ilii GOiUB aOO(-df4-> ' htlvtic. (394)^14/16 

t GOeUB '100(*cflOtl4a6') 
I GOiUB '100(*#f") 

79S0 REM^ • titlfi htlvttlM bald <39i)-l 

79aE GOiUB ^100(*rtf5M 

: GOiUB 'iO0(*efi5,lS*E4*) 
I GOSUB '100(»tf") 

7930 REH I 6^ subiitlfts htlvttica (SM}-14/i7 

793S GOiUB UOOCdfGM mm%i%in ntivtiica 14/17 

: GOiUB '100CcflO,14a7*> 
I GOiUB 'iOO("#fM 

7940 RIM % 7- ©ub/srq - hilvttiM BOLD (396)- 

ii/14 

794S GOSUB '100Cdf7'') 

I GOiUB 'iooc^efisae.w*) 

I GOSUB ^lOOCifM 

79S0 RIM ■ sMibsls - ei-fant - ig/i^ 

7915 GOiUB 'lOOCdfS-) smitoi* tani ib/ib 

I GOiUB nooccfsaeafi*) 

I GOSUB '100<*tf") 
7960 IF HfiOlTHlN 8080 
"7911 NS>1 

7970 SfLiCT PRINT OOB 

7971 PRINT HEX (03) 

7916 RiiTORi 1 
79i| FOR W9-1TD 3 
7990 READ R9«<ii 

799S PRINTUSING 8010,R9$(i) 
3000 NEXT m 
300S Ui>l 

soil DATA "Instrurtioni for RtftrtnetlM ea^tsi' 

ills 5^1^ - " Afttr ea£h pagt is displautd • Praiet will Apetar in" 
soil DATA " tht loNtr Itft eorntr of acrttn.'' 
liiS BtP I ~ OTCt ysu havi tnttrtd tht nt^t eaqt nuibtr touch* 
soil DATA • tht 'RETURN^ kty*" 

§040 DATA ' - To gtrfari sptcial functlana mou mSM tnterl* 
S04i DATA • START - Begin displaylTO Ltarnine Modult." 
IPSO DATA ■ NEXT - Go to next stquintal PMt." 
BOSS DATA ■ BTOP - Stop Hating. " 
80S0 DATA ■ 

BOiS DATA ■ LIST - LUt tht tntirt ItarninQ aodult.* 
1070 DATA * ■ 

8071 DATA • HELP - This ttxt." 
^8080 RETURN 

-8081 DEFFN^i03 

-8090 GOBUB ^iOR(W5jW3,D7i) 

809S IF D7i<>"iT0P*THiN 81S0 

8100 Q*(l)8»tnd of flit* 

43 drr 



TAEG Rtpoft No, 88 

BIOS GOTO 1275 

8110 IF W4*<>»TAPE"THiN 8115 
-81 IB PRINT HIHCOS) 
8120 SILECT PRINT OOB 
ills PRINTUBINQ EeSO," ■ 
8130 PRlNTUSlNa 8265," * 
eiii PRINTUSING 8B70," » 

8140 GOBUB 'lOiae, 1,0,0) 

8141 END 

-8150 IF D7§<>-PR1n''THEN 8160 

8151 D7i-*1RR0- 
-8160 IF D7$<>'ERR0*THEN 81S0 

8161 GOSUi '101 (17, §,0,0) 

8170 PRINT. "RE-ENTiR" 

8175 $GI0TONE/00E<R8SC4),R8$<9)) 

8180 GOSUB '101(17,9,1,10) 

8185 GOTO 3090 

-8190 IF D7$<>" HELP"* THEN 8E05 
8191 GQBUB 'SOEO) 
SeOO GOTO 8090 

-aaOl IF DTf^O'EDIT'THEN 8215 
8S10 GOTO 8SS5 

-8211 IF DTtO^'LlBT-THEN 8S5S 
8250 felS^O 
8225 WSf^" " 
- W3$"" * 
8230 W4i^^ " 
«5$^* " 
8235 W6t^'' • 
8240 GOSUB 'EOlCUJS) 
3245 GOBUB_ '§02(ImI6) 
8250 GOTO S0S5 

-Sill GOBUi '207CD7t) 

-8260 % AUTHOR? An Autoiitie Authoring Susttm # 
-8265 % Phait 111 Constructisn PfGCtiiina # 
-8270 %LIBT1NG COMPLtTED # 
-8275 RETURN 

SeSO DEFFN'E01(iy6,iiil3,D7$) 
SaSi IF WS-OITHEN 8345 
-SasO DS^D2tE 
SadS IF D2<128THEN 8325 
8300 DlaiDl+l _ 
8i05 IF DK17THEN 8315 
8310 GOiUB '000 

-8315 DATA LOAD BA T#3 , CDl ,D§)Qli( ) 
8320 Di=l 

-8325 D7i^ai$(D2+l) 
8330 IF Qi$CD2y<>HE)<CFFFF)THEN 8430 
8335 DTf^-BTOP" 
8340 GOTO S430 

-8345 GOSUi '101(17,1.1,00) 
8350 PRINT NEK (20i03F3F3F3F 080808080808) I 
8315 D7f *"NEKT» 

8357 IF E8i<>" RANGE* THEN 8360 

I IF BTRCQ$(1),59,4) <>i7i THEN 8365 
: E8*^"N0T RANGE" 
-8360 INPUT D7* 

-8365 PRINT ■Bystti WQrNlnfl...M 
1370 AND (D7».DF) 
8375 tTRANCD7$,R4i()<193,24>)R 
8380 IF P7«^"BT0P"TNEN 8430 
8385 IF D7*«"LIST'»THEN 8430 
8390 IF p7$^"HiLP"THEN §430 

8395 II' D7i»"NiKT»THiN 8i90 

8396 I?' D7i<>"RANG- THEN 8400 

i INPUT "ENTER START AND ENDS D7i,E7f 
I ESS'^" RANGE" 
: GOTO 8365 



-8400 IF D7i<>" STAR "THEN 8420 
1,401 DlaO 
8410 02^129 
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3415 GOTO 8290 

,-i4iO GDSUi ^aO§<D7») 
8415 GOgUB 'eOiCD7t,Dl,D2) 
-8430 RITURN 

8435 DEFFN'iOi<D7S,Dl,De) 

8440 DEFFNR C R ) sa56*ft+VAL ( STR ( Rg* U ) ,5 , 1 ) ) 

844S IF D7i='lRR0"THEN 0545 

8450 D3^D1 

8455 D4^De 

8410 MAT SiARCHQlf <),^STR<D7$,1,S)T0 RgSnSTIP 4 

8465 IF Ri$Cl)<>HiHC0O0O)THiN 8530 

8470 D3=0 _ 

8475 FOR Di^lTO 10 

34B0 DATA LOAD BA T#3, CD5,Di)Ql$C) . 
8485 MAT SEARCHQlfC ) .-STR^DTt ,1*2^70 RSiO^TiP 4 
8490 IF RES(l)sHi)<<0000)THEN 1505 
84i5 D3^D5 
8500 DS^IO 
-8505 NEXT D5 
8510 IF D3O0THEN 8530 
8515 DTi^-ERRO* 

85E0 DATA LOAD lA T#3, (Dl ,D9)Qlf < ) 
8525 GOTO 8545 

-8530 Dl^DS 

8535 PS^INT (FNR (VAL C Ret < 1) ) ) /B ) +1 
8540 D7$-Qli(DS+l) 
-8545 RETURN 

8550 DEFFN'iOTCDT*) 
8555 IF W3-S9THEN 85S5 
S5S0 INIT(eO)QS() 
-8565 GOSUB ^111 (D7i) 
8570 FOR WS^ITO 10e4BTEP S56 
8575 DATA LOAD BA T#3 , (D7S,D7$ )Q9$ O 

8580 MAT copy Q9$n<i,t5i>T0 ain<i«i9,a5s> 

8585 NEHT W9 
8590 RETURN 

8595 DEFFN^PCSCDTt) 
8600 D8^7 
riS05 09^14 

8610 IF STR(D7$*ea)>HEH(40)THEN 8655 
8615 IF NUM(D7t)^4THEN 8630 
BiEO D7f=*ERR0* 
86i5 GOTO 8715 

-8630 CONVERT D7$T0 D7 
8635 IiI1sINT(D7/CD8#D9))#1 
864 0 Wi * INT ( ( ( DT - < W 1 - 1) * i D8*D9 ) ) - 1 ) /D9 ) * 1 
8645 W3-D7- ( (Wl-l )* (08*09 ) MWi-1 )*D9 ) 
8650 OOTO 87 OS 

-8655 STRAN i D7i <a , 1 > , R4i ( KESS ,18 > ) OF 

8660 IF NUMCiTRCD7$tltl))<>lTHEN 8680 

8665 IF NUM(iTR(D7$,3,a))<>aTHEN 8680 

8670 IF STR(D7i,aa)>HEK<0F)THEN 8680 

8675 IF STR<D7i,Btl)>HEH<00nHEN 8690 
-8680 D7f *»ERRO» 

8685 GOTO 8715 

"1690 CONVERT STRCDTf 1 jTO Wl 

8695 CONVERT STR(D7i,3,a)T0 W3 

8700 wa»VALCBTR(D7f ,e,l)) 
--8705 GOiUB '103iWl$,Wltya,W3tO,i.> 

8710 D7*»Wlf 
-8715 RETURN 

8780 DEFFN'ilO<N6) 
8715 GdSUB '108(W6) 
8730 RETURN 

8735 DEFFN^ailCD7i) 
874^ MAT REDIM a9fC64)4 
874b iTRCD7t,3jS)-STR(D7ia.S) 
1750 AND <iTRCD7i,ltl^0F^ 
8755 AND CgTRCD7S.3tl) ,F0) 
8760 ROTATE ( 8TR CDTt, 3, l)t4) 
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87iS W9aVALfSTR{D7*,3,l)) 
-1770 IF iaisD6THtN SSS5 

B77S GOSUB '10K17, 1,1,0) 

S7S0 PRINTUSING BBiO.btS 
-87ai KIYIN RO* CI), 8800,1800 

879 0 *C IDPAUSE / 0 OS ( RS« ( 4 ) , R8« ( 9 ) ) 

87 9B GOTO 87S5 

-8800 DATA LOAD BA T«3, (0,D9)Q9$O 

8805 RQTATECSTR(Q9«a3),i,l),4) 

BSIO D6aVAL<STR(Q9$(ii),l,l)) 

Sill GOTO 8770 

BSiO % MOUNT Voluii > tttt Output Qlsk ... 'RETURN' to Continue 

-BBSS RETURN 



4G 
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TYPE.TST 

This program contains the instructions necessary to substitute the 
roqulred typesetting command strings for the mnemonic codes used by the AUTHOR 
system for special symbols. Inserts the other typesetting conmands requlrsd for 
setting the ranalnder of the text, and stores the resulting composed text In 
running text stream form ready for transmission to the typographer. It does 
this using the special hexadecimal digit code placed in the last column - 
position on the first line of each page or frame by the AUTHOR system. This 
code, directs the program to the appropriate subroutine for setting that page 
or frame In the specified format. 
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TVPE *TST 

0010 |«# Rill AUTHOR Systte V3*0 (TVPE/rSTrffid and Wivtrt aodult Cfui4/B«flf 

0010 COH Si*(ieS)4, S3^(lSg,3)13 

0010 COH A6«3,Ai$3 

0040 pIH R4ice6)l6 

OOiO DIH R8iC10)a4,RiS(i)fi4 

OdiO DIH BO 

R{2 g|jDl»gM3,D4,D5,D6,D7,D8.D9 
OOiO DIH D4t4,D7«4 

OOfO DIH Kl,Kg,K3,K4,KBS(80)i,R6»(i4)l,R7S(gO)l 

0100 DIH fell ,Wa i W3 ,W4 ,Wi ,Wg .Wi ,wi* ' 

0110 DIH feiasi6,lKl3il6,liJ4«16,|ils4lg N|«li 

Olio DIH RljRe,R4,Ri,R6,Ra,R§ 

0130 DIH Rili 

0140 DIH ROi(l)l,ReiCi)S 

OlSO DIH aO(18) 

0160 DIH Ql«(lgB)S 

0170 DIH a9«<64)4 

OlBO RIH * I Mariabif dtf inition/lnitlill^atlon 

Olio DIH F 

: REH FONT INVOKED 
OeOO DIH Ki64 

I REM COHHAND BUFFER 

oaio BIN L 

t REH LINE ADDRESSED 

osao Din Lii(64)i 

: REH LINE INPUT 
0830 DIH Lei(S)€4,L3i(S)64 
I REH LINE OUTPUT BUFFER 
Oa40 DIM HO 

: REH DIFAULT MODE 
OE50 DIH HI 

: nm CURRENT HODE 
0260 OIM Hi 

: REH NEkl HODE 
0S70 DIH H«l 

i REM HODE IN EFFECT 
0E80 DiH_0f(4)64_ 

I REM DlSN OUTPUT BUFFER 
0890 DIM R __ _ _ 

: REM POINTS TO BE LEADED 
0300 DIH P*g _ 

: RiM FOINTi LEADING COHHAND 
0310 DiHQi (16)64 

_l REH READ ^ IN BUFFER 
03iO DIH S 

: REH SYMBOL INPUT LENGTH 
0330 DIH SS 

: REH SYMBOL INPUT -OUTPUT ADDRESS 
0340 DIH SfiB4 

I REH SEARCH POINTER TBL 
0350 DIH T*i 

I REH TERHINATIQN 
0360 DIM V 

: REM VERTICAL MEASURE 
0370 DIM WSI64 

I REH WORD 
0380 DIM NiCiEB)S 

I REM UOm HAP 
039U DIM H0i6 

I REM KNLT TABLE - FORMAT 
0400 HOi^HEK ( OlOEOSOFEOEO ) 

0410 DIH Kl*16 

t REM KNLT TABLE ~ INPUT 
04|P Kli^HEH(BOS3SOA38ia08lAOB5iSABA5/KHiaoaO) 
0430 DIH Kaf4 

: REH KNLT TABLE - OUTPUT 
044 0 KEi sHEK C P OTFE 08 0 ) 
0450 DIH K3i4 

I REM KNLT TABLE - UNDERLINING 
0460 K3i^HEK(805EaoaO) ^ 

0470 REM I htadir ififorBition 

: DIM Hl$30t HiflOj H3fl0, H4$3, H5S4, H6«(i)4, Hif4 
I Hlf»'U.S- NAMVCTAEG) PKG 1 ^ 
I Hai^M713-lP037» 
I H3i«»dd-iii-yy* 
I H4is«flk» 
: Hlis'OBSO" 

1 H6i(l)='0001' 

I H6i(S)^"0001' 

I H6t<3)-*0001" 
0480 END OF COMMON STORAGfc ARIA «# 

0490 %m END OF COOMON STORAGE AREA ## 

0500 nm %^ 
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i Thlf pfQffrai mkll proctwi ill 9i€tm output bu tht AUTHOR 
1 Bystfs inn typtfttttine md§ Nhieh Mill «lle»i thsst PMti 
l_ to bt tr«nsiittid te i typtmfttt^r for linal sutput* 
REH ibtfliri i#in proeisiins Itop 

GWUB 'aoo 

l§ GC^B 'iOl^Ng) 

|To ettuB 'g&e(Wi) 

RBI Unit tstil p«it output 

: W'O 
I V8«99 

0SS6 RIH _ t invokt pigv # isdi 

I aOiUB *10iC4) 
0100 REH _ ; ftart nt^ct past if trrer 

: REM ON ERROR E8«,iS§ GOTO E79 
-0610 REM f s#t cut larNs 

I GOSUB ^SS(»* 4--) 

: GOSUB 'SSChlKCOS)) 
OSEO GOtUB '103 
0630 GOSUB 'PlO(Wg) 

0640 REM , tist for tnd=Qf-#llf 

: IF QitDO'fnd sf #llp« THEN 740 

i REM THEN 7B0 
0650 REM 1 savt ind-of-fili infs 

0660 GOeim 'iOdCti') 

S GOSL^ '99( 

: Lit uCOO) 

0670 GOSUB 'iiC* •) 

0680 INIT (OiM LE«n 

S GOSUB •) 

1 INIT (00) Litn 

2 GOSUB iSC* •) 

0690 DBACKSPACI il.BEO 

0700 DSKIP »li(Q3-0l)S 

0710 DATA SAVE DC #1,END 

67aO PRINT ■COMPOSITION COMPLETE" 

0730 STOP 
-0740 REM _ ;imr totil pages mtt 
i 08^ Di +1 
0750 RIM I timt for and of N^paits) 

IF 08-lNTnQ8=i)/4)*4 Ol OR TO ' 1 THIN 770 
IF 08-lNTn08-l)/li)#lg<>lTHEN 7S1 
: GOSUB 'S9<HiKC07)) 
: GOSUB 'iOOCdoEO*) 
: OOSUB '97 
GOSUB '100<'g4"} 
GOTO 752 

-0711 FOR I^ITO 3 

: GOSUi 'iOOC'oa-) 

: NEXT 1 
-0758 REM Sit niN cut BirMm 

I COiUB '99('* #•) 

: GOSUB '99(HEK(05)) 
07g6 REM __ ; Sit top of pigt 
■0770 GOSUB aOOrtllS") 

I IF STR(Qt(l),5S,l)i=*l«THEN COSUl ^§9CSTRCata) ,60,3n 

: ELSE GOSUB '99<iTR<Qf (1) ,19,4)) 

• GOSUB 'lOOr^E") 

0780 REM ; lit according ts fonat coda IBELECTPRINTilS( 132 ) IPRINI QiCD.HMKOF 

(iTR<a*<l),64,l)) ,VAL<STRCQ*a),64a)S:GdfO 6S0 
07DO ON VAL(iTR(QiU) t64)) ^00 GOSUB 870, 1100. llOOaiOO. 0*0.1140. 1260, i360«ll 
34,1131,1190, 0,0|0,0 
: ELSE GOTO 300 
I GOTO 836 

OBOO ON VAL(STRC ;5(1),64))-16 GDSUB 0« 0,1132,1440.0.0.1100.1^90.1100.0 

t 171 0» 1360 ,1360 , 1 135 , 0 ,2000 
: ELSE GOTO 810 
: GOTO 820 

0810 ON VAL(STR(Qi(l);64))^3e GOSUB 1860,1930,1100,1100,1133,1260,1360,1150. 
1100, 1100 1 1136 1 0,1100,0,0 id 
I ELSE STOP 
I GOTO 820 

0820 REM I add Itad abovi tottaa mm^w no. 

: GOiUB ^111(16) 
0830 REM i invoki page no. lodi 

■ GOSUB '101(4) 
0840 REM : Sit bottoa page no._ 

I IF STR(Qt(l),59jl)«n'THiN GOSUB '9i(STR(Qt(l) ,60,3) ) 

I ELSE GOSUB '99(8TR(Q»a) ,S9,4) ) 

: GOSUB 'lOOCqc') 

i GOSUB '100 ("ilia') 
OQSO REM i continue prscimiing Inoe 

I GOTO 610 

0860 REM %f 
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TITLl PAGE FORMAT (PP 1) 

-0870 REM I Invokt vert. Just. 

t GOSUB 'lOOCviSSpB') 
OSBO REM udd Itading above titl§ 

i GDSUB 'lOOCvb") 

■. GOBUB 'lOOC^vb") 
OS90 REM I invoki titlt lode 

: MO-1 

0900 RIM • inlt line indtx 

i LSI 

0910 REM • set titlt 

I GDSUB '1S1(9I) 
0920 REh ; add leadini above title 

; G03UB 'iOOt'vb') 
0930 REM I invoki subtitlf »ode 

; MO-6 

0940 REM I set subtitle 

I GDSUB 'iai(99) 
09S0 REM I add leadins above authors 

: GOSUP 'lOO^'vb" ) 
0960 KIM I invoki author lodt 

: m-1 

0970 RIM • 5tt authors 

: GOSUB 'lil{i9) 

0980 REM ! add leading above date 

: GOSUB '100(»vb") 

0990 REM i Invoke date lode 

: M0=4 

1000 REM ; set date/ quad ctr 

: GDSUB '151(93) 

1005 REM ; set credits 

t Mo-a 

: GOSUB 'iOOCvb") 

i GOSUB 'laiOS) 

I GOSUB 'l60("vb») 
1010 REM I add leading above ory/pub 

: GOSUB '100("vb" ) 

l GOSUB 'ldO{''vb') 
loao REM ■ invoke org/pub lode 

; MO-7 

1030 REM • set org/pub 

1 GOSUB '151(99) 

2 GOSUl '100(»vb") 

I GDSUB '10Q("cf4,6,S= ) 

: GOSUi '99 ("TYPOGRAPHY by F. Laurence Keeler, Ph.D.") 

: GOSUB 'lOOCqc") 
1040 REM I add leading above GOTO 

I GOSUB '100(»vb') 
1050 REM ; invoke GOTO lode 

: M0=1 

1060 REM I set goto / quad right 

: GOSUB '130(Git(16) ) 

: GOSUB 'lOOCise*) 

: GOSUB 'lOOCqr") 
1070 GOSUB 'lOOCvb") 

: GOSUB '99(HEX(0S)) 

I GOSUB 'lOOColO") 

I GOSUB 'iOOCvj') 
1080 RETURN 

1090 REM %t 
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Biaplt &-£ol fofiat 

-1100 pH % set headins 

^ i CDSUB '121 
-1110 RfH i dtflnt tabm 

amk %^ 'ioe<'dj6i,iop,aB,sip,sp') 

t OOSUE '1S3 
^ _S NEXT L 
1130 RETURN 

-1131 IF STR(Q»{ie),S9,l) <> THIN 1100 
1 STR(Qi(ie),S9,l) ^ • ' 

t GOTO 1100 

ORy^llD^fi?"'^^'^-""** °' "^"^"^ STR<Qf<3),a7.38)-"at^tht OtFlNiriON and MtH 

: IE i^i^Sf^i^il'll^;^"^ D« thin STR(QS<S),4i.li)=i''and thu- 

' Su ISok at-' ' - STR(Q*(6>,a7.3a)--DiFlNIT10N to uourstlf as 

: GOTO 1100 

'**^f OOtFiiOO*^^^'^^'^^^^'^®'' sysbols' FHtN SrR(Q»a6) .aS.lS)"' ■ 

-1134 FOR L^STO is 
: L1»<)*Q»(L) 

I NiKT^L^^^^^'^' 'THEf^ STR(Q*(L), 24,41 )^STR<L1»<), ai. 41) 
GOTO 1100 

^STF?f9!^^®^'28.4)^"Te P»THiN STR(Q$(10) .2S.4)^-To m' 
m yUtU 1100 

^SifJ?i-Sllyi^t^iiki- ^" THEN SrR(Q»0),a7,3S) = -tralnlnq. Your 

: GOTO 1100 

1140 REM %+ 
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optional erittrion ttst 

cosui 'ids<e) 

FOR L=STO 4 
OOSUE 'lOOCbt") 
GOSUB '136(8TR<Q«(L),6,16H 
COSUB 'lOOJOqi'i 

C08UB 'leectt') 

STR<Q«<L),S,165*'" « 
V8-Va-16 
NiXT L 

GOSUB U0O("dt€s,iep,gip.6pM 
GOSUB 'iOOCbt") 
GOSUB 'iOO (•*!■) 
GOSUB '130<Qf(g)) 
GOSUB 'l66<«teM 
GOSUB 'lOOt'ttM 
FOR L-atO 16 
GOSUB '1S3 
NiXT L 
I RETURN 

114S RIM %♦ 
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crittrion test #» 
"1150 REM I set heading 

I GosuB aaa 

lieo REM 1 define tabs 

t GOSUB aOOC"dt6gaOp,ag,21p,6p" ) 

1170 REM ; set reiaining lines 

- FOR L TO 15 

: GOSUB 'lal 

: NEHT L 

I GOSUB '139 

1180 RETURN 

'•1190 REM %^ 



TAEG Report No. 88 

VHlsbals in set 

ItOO RiH j s»t hiading 

I GOSUl 'las 
ASiO REM I stt line S 

j COSUB 'lOOCbt") 

: OaSUB '130(STR(a«(S),S4,41)) 

: COSUB 'lOOCtlM 

I COSUB '100('et») 
iSia REM jttBt for graphic sUBbDls 

: MAT sear6hq*(4),='I«yo wsn 

: IF VAL(WS(1),2)<>0THEN 1230 
: GOSUB '111(16) 

: COSUB 'loocdua-) 

I FOR L-4 TO 6 

COSUB '10e<''ifl8p") 
: COSUB '130(BTR(Q«(L),a4,41)) 
I COSUB 'tOOCiBep') 
: GOSUB 'lOOCJl*) 
l NEXT L 

: COSUB '100<'du2") 

: coTo leyo 

-ISSO REM -set syBbols 
: COSUB '111(16) 
GOSUB '106c dt6g , ISp ,4p ,4p ,4p ,4p ,4b . /o " ) 
Qlf(5) s Q»(5> 8. STR(Qt(6),24) 
FOR L=4 TO 5 
GOSUB '139 
: NEKT L 

I COSUB '111(16) 
-1530 REI1 "sft re»aining ttset 

: COSUB 'loord^Rfl^iap.aip.ep") 

I FOR L-7 TO It 
: GOSUB '123 
I NEXT L 
: RETURN 

1240 REM Xf 
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criterion test - syibols 

Sid • <PP ",Sl) 
-laSO REH i Sit headifii 

: GQSUB 'IBB 
iSTO RIM linvoNe text iPdi 

i M0=1 

ieao RIH ; defint tabs 

: GdSUB 'liUD 

1300 GOSUB 'im 
1310 NiKT L 

laao REM ■ dtflne tabs 

i GOSUB '100Cdt6g,10p.SB,Slp,Sp») 
1 REM ; set Boto rof. 
I LslS 

t GOSUB '123 
1330 RETURN 

1340 REM Xt 
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criterion test - answers 

1350 REM ; (pp 11,15,53) 
-1360 REM • Sit heading 

: GosuB 'lae 

1370 T=0 

laaO FOR L»S TO IG 

: IF STR<Q»(L),6,1) > HEX<AO) THEN 1400 

: IF STR(Q«<L1,B,1) = THEN 1410 

: IF T <> 1 THEN CDSUB '100( "dtSg, 10b .Sa .Sic .60" ) 

: T-1 

• GOSUB '133 
-1390 NEXT L 
: RETURN 

-1400 R|M ?set col hdgs 

t IF T <> a THEN GOSUB ' 100 ( "dtSg ,3p.iOB .SOp ,69" ) 

I r ^ 2 

; AND (QtCL),7F) 

GOSUB '100(*btM 
: MO a a 

i GOSUB 'lOOCnt') 

: GOIUB '130(STR(Q»(L),1,B4)) 

ogsuB '100 etc") 

i GOSUB ' 130 (STR(Qi<L) ,56,30) ) 

: GOSUB '100<"tl') 

: GOSUB 'lOOCet") 

; GOTO 1390 

-1410 REM -Bet # - sy 1 - ans 

: IF T<> S THEN GOSUB '100< ■dt6g,3p.lOB,20B.bD" ) 
: T a S 

: GOSUB '11K7) 
: V8-VS-7 
; M0=1 

I GOSUB '1S7 
: GOTO 1390 

1420 REM %+ 
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Itarn sysibol dtfinitions 

1430 REM ; <pp 18) 

••1440 REM ■, set htading 

: GOSUB '1S2 

1450 REM ■ define 3-cal. tabs 

,.,^1 SPi^s 'ioocdt6s,iip,iipaip,6p") 

1460 REM I Bgt col hdgs 
: IF Q»(S)<>" " THEN 1470 
l GOSUB ^111(16) 
: GOTO 15S0 

"1470 GOSUB '100(,'bf ) 
: MO=i 

: AND <Q*<S),7F) 
1480 REM ; stt col i (definition) headinq 

l GOSUB '130(STR(QS<2),l,a5)) 

: GOSUB '100< »tr" ) 
1490 REM • set col 2 (syibol) headina 

: GOSUB '130(STR(Q»(S),S7,1B)) 

: GOSUB 'lOOCtc") 
1500 REM ; stt col 3 (»ei aid) headina 

'. GOSUB ' 130 (SIR (Q« (2), 43, SO)) 

: GOSUB 'lOOCtl") 
1510 GOSUB 'lO0<"ef) 

I M0=1 
"1550 FOR L=3 TO 15 
1530 GOSUB 'ISl 
1540 NEXT L 

1S50 REM ; define tabs 

: GOSUB '100("dt6g,10p,2g,21p,6p'') 
; REM ; set goto ref 
: GOSUB '129 

1560 RETURN 

1570 REM %♦ 
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practice mysbol dtfinitisnm 

^iS99 RfH 1 Sit heading 

iSii RfH It tit for srsfhiE symbols 

I MAT S1ARCHQ«C2),*»1*T0 Win 

1 IF VAL(W$<l)*g)<>OTHHN 1600 

1 GOSUi aOOI'duS-) 

I FOR LsfTO i 

1 IF iTR(Q*«L) *i,i6)=» 'THiN 1516 

I MOsi 

I OOSUt '130ISTRms(L},€ai>) 

: GDSUB 'lOOr^lM 

I COSUB aoOMalOM 

"isse Gosus uoocuiiip*) 

I H0=1 

i GDSUB ^130(STR«Qsa) ,14,41) ) 
% GOSUB UOOriiip') 
I GQiUB aOO(*jlM 
: NEXT L 
I GOTO 16S0 

-1600 REM I define tabs 

i GDSUB ^100«»dtis,iap,4p,4p,4Pt4p.4p.TeM 
1601 SILICT ?R1NT E15(13E) 
I FOR L ITO 6 

: PRINT "INITIAL SQSCL) 
: NEXT L 
: PRINT 

-1601 FOR L^3TQ 6 

-1603 FOR I=1TD 4 

: IF SfR(QS(L),i7 t7*I,6)<>iTR(Qf CL-1) a7+7*I,6)THEN 1604 
: STR (Qf (L ), 17+7*1 ,6 ) =STR (Qt ID , 17+7»lt7 ,6 ) 
I STR <Q$ CD , 17+7*1*7 s6 ) ^STR (Qi (L-1 ) ,17+7*1 .6 ) 

-1604 NIKT 1 

: IF STR<Qi (L_),Set6)<>STRIQf IL-1),5E,6)THEN 1606 
: STR(Q5i(L),Bi,6)-BTRIQS<L),E4j6) 
I 8TR(Q$(L),14,i)^BTR(Qi(L-l),51,i) 
I GOTO 1S03 

-1606 NEXT L 

I FOR I^ITO i 
iS07 FOR L^lTD i 

I IF STR(ai(L)a7+7*l,i)<>STRmi(L),17+7*a-l),6)rHkN 160S 

I STRCQf (L) a7+7*I,6)^STR(Q*(L+l),17+7»I,6) 

I STR(Q$(L+l),17+7*l,6)^STRCQf (L) ,17+7*a-l),6) 

-1608 NEXT L 

I IF STR(as<i>, 17+7*1, 6)<>iTRCQS(i), i7+/*(l-l) ,6)lHfeN 160^ 

• STR(Qi(6), 17+7*1, 6)-STR^Qi(S)aT+t.i) 

I STRCQtiE) ,17+7*I,6)-STR(Qt<6)aT+7*a-l) .6) 
I GOTO 1605 

-160i NiKT 1 

1 FDR L^ITO 6 

■ PRINT "FINAL SQSfL) 

I NEXT L 

t PRINT 

: PRINT 

I SlLiCT PRINT 005<SO) 
1610 FOR L ^ 1 TO 6 

I GOSUB '139 

: NEXT L 

-ISaO REM ;mtt rulf 

I GDSUB '100rdt6g,33p,ip'') 

J OOSUB 'iOO("bf ) 

I GDSUB 'lOSU) 

t GOSUB 'lQO(*li") 

: GOSUB 'lOOC'tj") 

I GDSUB aOOCif) 

1630 REM ; set col hdgs 

• AND ia%iE),lV) 

I GOSUB a60("dt6g,10p,2g,llp,6p*) 

t GOSUB 'lOOCbf ) 
MO=E 

I CQiUB '130<iTR(QS(S) ,1,20) ) 

: GDSUl 'i00("te") 

I GDSUB '130(STR(Qiia)*EE,4Q)) 

: GDSUB 'lOOrtl") 

I GOSUB 'lOOCet") 

• MO^l 

1640 FOR L = 9 TO IS 
I GOSUB 'lil«4) 

• VS^WS-4 

16S0 GDSUB '1ESIE4) 
1660 NEXT L 

1670 RIM I dtfint tabs 

: RIM ; lit goto rtf 

I GDSUB 'IBS 
1680 RETURN QQ 
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tist yourself 

1700 REM fttBt yourstlf 

-1710 REM I stt headina 

I COSUB 'lis 

17ao REM ■, dtfint tabs 

: coauB 'ioocdt6gaop,ia,aip,6pM 

1730 REM I set dirtctions 

I FDR L*a TO § 

I COSUB 'las 

t NEXT L 
1740 REM I dffine tabs 

I GOSUB 'lOOCdtea.lOp.Sp.li.lOp.Sp.ls.lOp.SP") 
17S0 REM ; set tws itsas 

t FOR L = 10 TO ir. . 
1760 REM I coipu-Uf start of text 

: L1-P0S(Q$(L)<>" ■) 

I REM I net a blank line 

: IF LlOO THEN 1770 

: GOSUB '111(16) 

". GOTO 1830 

-1770 REM ; add leading 8f begin tab 

: GOSUB '111(4) 
: V8sV8-4 

.• COSUB '100(«bt") 

: REM ;lf no sidf heading 

: IF Ll> 23 THEN 1780 

: MO=a 

I GOSUB '130{STR(Q$(L),6,1B)) 
-1780 REM ; tab/invoMe text ■ode 

: GOSUB 'lOOCtl") 
1790 REM I set itea nusber for col [13 

t MO-1 

: GOSUB ' 130 (STS(Q$<L) ,24,3)) 

■. GOSUB 'lOOtHr") 
ISOO REM sft suibol for col 111 

1 GOSUB 'l30(STR(S»(L),gB,15)) 

i GOSUB 'lOOCtl") 
1810 RiM ? set iteii nusber for col £2] 

I MO^l 

'. GOSUB '130(STR(Q$<L),44,3)) 
i GQSUB 'lOOCtr') 
1820 REM % set syibol for col IE] 

i GOSUB '130(STR«Q*(L),48,15) ) 
I GOSUB 'lOOCtl'') 
i COSUB 'lOOCft*) 
■1830 NEKT L 

1840 REM I defint tabs 

: GOSUB 'looc'dtea.iOp.Eg.aip.ep") 

: REM iset goto ref 
: GOSUB 'lEl 
1350 RETURN 

1860 REM %t 
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practice all sytbols 

1870 REn jstt head 

i GQSIJB ' IsS 
1S7S REM jtest for araphlc syibols 

; MAT S1ARCHQ$(S),^'!»T0 W*<) 
IF VAL<Wta),g)<>OTHiN 1B80 

t OOaUB 'lOOCduS') 

I FOR L^itO IS 

: Ir STR(Qf (L),6,16)=' 'THEN 1176 
I M0=2 

I GOSUB '100Cis€p") 
l GOiUB '130(STR(Qf (L),€a6) ) 
l GOiUB 'lOOO'ql') 
: GOSUB 'lOOColO') 
-187S GOSUB 'lOOC'iBlBp') 
f MO-l 

•, GOSUB '130(STRm«<L),a4,41)) 
t GOSUl 'iOOCisSp") 
: GOSUB 'lOOt'Jl") 
; NfXT L 

t GOSUB 'lOOCduS') 
: GOTO 1900 

-laSO REM idefinf tabs 

: GOSUB '100("dt6g,i6p,Sa,4p,4p,4p,4B.4p.7B» ) 
1881 SELECT PRINT 515 < 132) 

i FOR L-ITO 15 

: PRINT 'INITIAL '.GtfD 

: NEXT L 

1 PRINT 
-188S FOR L-3T0 15 
-1883 FOR I-lTO 4 

i IF STR<Q»(L),17 +7*I,6)<>STR(Q*(L-1)..17+7*I.6)THEN 1884 

: STR<GI$(L) ,17+7»I,6>aSTR(Q*(L5 ,17+7»I+7.6J 

: STR(Q«(L) ,17+7*1+7, i)=STR(Q*^L-l) ,17+7*1.6) 
-1884 NEXT I 

.■ IF STR(Q»(L) ,5a,6)<>STR(Q»(L-l) ,SS.6)THEN 1886 
: iTR(Q$<L) ,52,6) =STR{Q*(L) ,54,6) 
i STR(Q»(L) ,a4,6)-STR<Qi(L-l),5S,6) 
: GOTO 18S3 

-1886 NEXT L 

: FOR I^STO 5 

1887 FOR L^iTO 14 

: IF STR(Q*(L),17+7»l,6)<>STR(Q*(L),l7 + 7*a-l).6)rHEN 1888 

I STR(Qt(L) ,17+7*1, 6)sSTR(Q*(L + l) ,17+7*1.6) 

: STR(QS(L + 1) ,17 +7*1,(5 )^STR<Q*(L) ,17+7* a-l) .6) 

-1888 NEXT L 

: IF STRCQtaS) ,17+7*1, 6)<>STR(Git(15) .17+7»<1-1) .6) lHEN 188 

I STR(Q$(i5),17+7»I,6)»STR(Q*(S) ,17+1,6) 

: STRCQtCS) ,17+7#I,6)aSTR(Q*(15) ,17+7«a-l) .6) 

I GOTO 18SS 

•1889 NEXT I 

: FOR L^ITO 15 

: PRINT 'FINAL ■,Q*<L) 

; NEXT L 

: PRINT 

I PRINT 

', SELECT PRINT 005(00) 
1890 REM jStt syibols 

: FOR L=2 TO 15 

I GOSUB '139 

I NEXT L 
1900 REM f sf t 10 to . . . 

I GOSUB '100( 'd\6B,10p,ag,Slp,6p'' ) 

I GOSUB 'leg 

1910 RETURN 
1980 REM %t 
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practice all syabols isnswers) 

-1930 REM ; Sit heading 

•. GOSUB 'las 
1940 REM I defint tabs 

I GOSUB '100Cdt6fl,10p,2g,aip,6p" ) 
1950 REM ; ret col hdgs 

: AND (a»(a) ,7F) 

i GOSUB 'lOOCbt") 

: MO^S 

l GOSUB 'i30<BTR(Qt(a),l,24)) 

: GOSUB 'lOOC'tc" ) 

i GOSUB *130<STR(Q« (e) ,aS,P.B) ) 

: GOSUB 'lOOCtc") 

I GQiUl 'lOOt'et") 

: M0 = 1 
1960 FOR La3 TO IS 

: GOSUB '111(7) 

'. V8^VS-7 

: GOSUB '1SC(S6) 

: NEXT L 
1970 REM ■ set goto ref 

: GOSUB '129 
1900 RETURN 

1990 REM %t 
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indix 

*iOO0 tm I %9% heading 

_ I IF STO<aia),f,i) <> "iKDec imn iiio 

SOiO Rpi idtfine tibm 

5^0 REH fstt pigf addrns ral head 

I CC«JB aOOCbtM 
£ HO«e 

I omUB '111(16) 

i ^s-va-16 

ioao REH jstt chapttf and pagts 

I FOR L*3 TO IB 
I IF QSCDO" "THIN i040 
I OKUB '111(16) 
I OOTO i071 

-e040 IF iTR<Qt(L)tlOa)** ■THEN 2060 

: IF STR(Qit(L)tSBa)<>HE>((5F) THEN SOSO 
: RIM _ isft rulf 
I GOiUB 'lOOCbf) 
I GOSUB 'ioe(l) 

I GOSUB ado<ui") 

t OOTO SOTO 

"EOSO REM ichapttr htad set chapttr - instrt whitt s^ace = stt Paae # 
: GMUB 'lll(li) 
I VSsVS-li 
: GOiUS 'lOOCbt') 

I If STR(a$(L)t€U>^'' "THIN GOBUB '100(*is3p") 

I GOiUB '130(STR(Qf (L),6tB0)) 

: GOBUB 'lOOCws') 

% GOiUB 'Si(STR(M(L)t57,4)) 

i GOTO S070 

^iOiO RiH icofitenti inmeri spact ^ stt conttnts - instrt spicf OR set syi 
tals 

I HAT SiARCHQt(L). = »%»TO WSO 

1 IF Ni(l)<>HlK(0000)THEN E061 

2 GOfUi '100Cdu3") 
GOBUB 'igOC'isilp*) 

' GOiUB '130(Q$CL)) 
t GOBUB 'ICdCislip") 
I GOSUB '100(*jl") 
: GOiUB aOOfduE") 
- GOTO 5071 

-E061 IF TS ^ B THEN iO€E 

: OOBUB '100(»dtiept3p*3Pw3p,3p,3p,lEe') 

I TS ^ B 
-SOea GOBUB '13i_ 

t IFL^IB THEN E071 

I MAT SIARCH Qi(L+l)," TO WtO 

: IF Wtil)<>HiH(0OOO) THEN i071 

: GOBUB 'lOOCdtSitiTPtip") 

: TB 3 1 

: GOTO iOVl 



-5070 RIM ' ^-mtify liTii 
: GOSUB 'lOOC'tJ") 
GOSUB '100 (■#€■) 



-g071 NEXT L 
80BO REM g Sit continut and goto 

: IF STR<M(16),41,4)^»To C"THEN STR<Qi< 16) •40,lS) = "Ind#x csntinuid on 
I IF STR(Q§a6)t46tB)^"End ©"THEN Qi(16)s" ■ 
I IF Q$<1|)<>" "THEN GOSUB '100( •dt9©,30n,6e« ) 
I GOBUB 'ia§ 
iOB9 RETURN 

8090 REM %f 
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subroutinf (93) 
SiOO REM % 

2110 DEFFN'98(Ki) 

: L2f() ^ LatO h m h HEK(OD) 
: GQSUB '99 M 
: RETURN 



SISO REM % 



2130 REM % 



2140 DEFFN'99(K$) 

5150 REM • add string to output buffer 

: _ LE$( )-L2*< ) h m 
2160 REM * print status of output buffer 

5170 GOSUB U0ia7a,0,0) 

\ L3$()=LSS() 

• *TRAN ( L3$ ( ) , HEK ( 5B735D7D8 1 0E8S 0F2 OH 0 ) ) R 
- *TRAN<L3*(), 

: iTRAN(L3*( ) ,HEX (40202020) )R 
: SELECT PRINT 005(64) 
\ PRINT HEK (OS)- 
\ PRINT L3i() 

: PRINTUSING "current page foriat [##]" ,MAL(STR(ai(l) ,64) ) 
eiOO REM I if output buffer not full 

I IF Lgi(5)^« " THEN 2260 
B190 □$< )?LB$( ) 
2200 L2$()-L2i(5) 
2210 STRANCOSC ) ,K2$)R 
aaSO DATA SAME BA T »1,(03,D3) 0$() 

111^ t testing only (operator wait): KEVIN Agi 

3240 REM i if disk fill not full 

• IF 03 < 02-1 THEN 2260 
2250 __ STOP ^output file full 

-2260 RETURN 



■ * e B 



SE70 REM % 

su t»r*oij-t iri e €iOO> 

aSBO REM ; add coiaand /K*/ to output 
8590 DEFFN'100(k») 

S300 LBsn<S$() h HEK(7B) 8t K* & h£X(7D) 

: GaSUB 'Sftr ■ ) 
5310 RifURN 

aaao rem zt 
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sybroutint (ill) 

S330 REH ; add fMtra Itadlng Clint advsncg) 

1340 DEFFN'lll(P) 

aaSO CONVERT P TO P$,(i#) 

2360 _ Kf^^tl" h Pf 

2370 COSUB MOOCKi) 

5330 RETURN 

6390 REH % 

sub r*o 14 "t i n e < i 02 ) 

2400 REM = invQkt ntw sode 

2410 DEFFN'lOa(HS) 

2420 REM lif BOdfi alrtady invoked - Bxi% 

I IF M£^M1 THEN 2470 
2430 Hl^Ma 

2440 CONVERT Ml TO M*,C#) 

2450 KS - "i" h m 

2460 GOSUB 'lOOCKt) 

'2470 RifURN 

2480 REM %f 



6*6 
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subfoutint ilBl) 

10 mn 1 

10 RgH _:_init line Itngth 

: iF.Lsi THIN LOsSS 

; ILSE L0sS4 
iO REW jfinci nt^st non^blanfa lifif 

S IF L < IS AND iTR(Q4CL),,L0)<>* ■ fHfcN SMO 

t L» L ♦ 1 

i IF L > 16 THIN 5570 
I GOTO EBiO 

16 RfM _liait line l»nath 

; IF L«l THlN L0«5g 
ELSE L0i^S4 
10 REH jset liTie 

I GGSUB ^130(STR(Qf «L)*,LO)) 

I ODSIJD 'IDOCqe' ) 
iO REH I d^Ertitiit line count 

: C- C-i 

: IF C^O THEN 1170 
iO RIH iB«t next line if n©n-blink 
I LfL 41 

I IF_L< iS AND Q*(L)<>* • THEN iiiO 
ro RITURN 

SO RiM If 
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subroutine <1SE) 
i5S0 n£ri t 

mff'b Xine .1. €, ^ mm^S i-nm > 
iiOO Dfc'FKN'lSG 

S6i0 REM iatii lead bove heading 

I GOSUB 'li.1.(S9) 
fiiiO REM Unvoxe htading ■□dt 

5630 REM {jtrip underline 

I «tR4N(STF:<a«(l),fi,i3),X3»)7F R 
2640 nEM isinglf col / 1 inch Bargins 

! GOSUB 'IdOC-d-teg.SSp.Sp*) 

I G'SSUB 'lOOCbf ) 
SeSO l^tt hdg w/ quad 1ft 

• "' .,8 '3.30(BTR(Q*{1),6,53)) 

: GUSUB 'lOfCtl") 

; GDSUB 'lOOt'ttM 
2660 REM fadd lead above rule 

: GOSUB '111(36) 
2670 REM iset rule 

t GOSUB '100C''bt'') 

t GDSUB '100("li*) 

■ GOSUB 'lOOCtJ") 

GOSUB 'lOOCef) 
2ftQ0 REM Uead below rule 

: GOSUB '11K45) 
2690 RETURN 

2700 REM X? 



6'S 
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subroutine USS) 
S710 REM % 

mm-t cuT-T-en-t line in a-coi +'01-111 
8750 DEFFN'iea 

i COSUB '159 
: GOTO 2880 

?rLi> 5 taiiS iTii*"" 

: COSUB '111(16) 
: GOTO 5880 

"^''^l IEJIRif*^Li,S5,l)<>'."THEN 8756 
', OQSUB '111(7) 
'. V8^y8-7 

'^^^? CpsUi^'fim)'^^'^^''^"'"^^ STR(Q*(L),S4,3)<>" "THEN S7S7 

: vi-V8-4 

: GOTO 5760 

-2757 IF L1026THEN 5760 
: GOSUB '111(3) 

: ys^vs-a 

-2760 RiM ;&#gin tab 

: GQSUB 'lOOCbt") 
2770 REM ;set sidthiad (if any) 
I IF Ll>23 THEN 2780 - 
I MOsS 

SP^^ 'i30(BTR(Q$(L),6,li)) 

I GQSUB 'lOOCtl") 
: MOi=l 

2790 Li=PDS(STR(Q$(L),24,41)<>» ■) +23 

'■ TP ffliK iTgiSfiH'ii'3>"HE><(ifliAao) 

: ;E IS WE*^ STR(Q$(L),24,4)=HEK(181B09iO> 

i ip hiSi KiK S^lf ^'^^ :4).HEK(ii{i?iiS! 

llpO l.l$()=ST,^(Q$(L),Ll) 

2810 L2MLEN(Li*()) 

8020 T$='tl' 

3^ J iL'-^=24 THIN 8810 

2840 REM I doubli indent/set 

: GOSUB '100(''is6p'' ) 

I Ti-"tr" 

: GOTO 8860 

"2050 REM ; not hofz rule 

• OOSUB^'fosIf?*^^''-^'-^- ® ■^"^'^ 8860 

I GOSOl '100(*li») 
t COSUB '100(*tj») 
: GOTO 2876 

-5060 REM ; lit and col 

I GQSUB 'i30(STRCQi(L),l.l,Le)) 

I GOSU" '100(T») 
-8870 RfM I end tabs 

GOSUB 'lOOCff) 
-8880 RETURN 

8890 RIM 



ERIC 



67 &Q 



TAEG Report No. 88 

subroutint (1E4) 
2900 HEM % 

set S col cn i"t er* ion "te^-b 
2910 DEFFN'1E4 

eseo REM I if lint not blanM 
I IF Qt(L) <> • ' THEN 2930 
; GOSUB ^11(16) 
: GOTO 3080 

-S930 REM I btgin tab 

: GOSUB ^lOOrbtn 
5940 REM ; stt itf» nuibtr for col £13 
I LI = PaS(Q»^L)<>' ") 
: IF LI > B THIN E960 

esso GOSUB aoi<iJ 

t GQSUB '99<STR<Q«(L).H,3)) 
-S960 GOSUB aoortr") 
E970 REM ; Bit syibol for col til 

t IF STR(ai(L),10,16)s» ■ THEN 2990 
5980 GOSUB 'i30(STR<Q»(L),10,PO8(STR(Q*(L),10,17)^" '')-l)) 
-5990 GOSUB 'lOOCtc") 
3000 REM ; Bit rule for col 111 

I GOSUB '105(1) 

I GOSUB '10O("li") 

l GOSUB 'lOOCtJ") 
3010 REM ; set itei no. for col [53 

I IF STR(Gl»(L),33,3S)^« " THEN 3080 
3020 L1=P0S(STR(Q»(L) ,3S,33)<>» M+Sl 
3030 GOSUB '102(1) 

: GOSUB '99(STR(Q*(L),L1,3)) 
3040 GOSUB 'iOOCtr') 
3OE0 RiM ; BET SYMBOL FOR COL 151 

I GOSUB '130(STR([QI»(L),L1+4,PQS(STR(Q»(L).10.17) = ' ")-!)) 
3060 GOSUB 'iOOCtc") 
3070 REM ; SET RULE FOR COL 12] 

: GOSUB ' 105(1) 

I GOSUB '100 ("11") 

t GOSUB 'iOOCtJ") 
"3000 REM ; end tab 

: GOSUB 'lOOCttM 
3090 RETURN 

3100 REM 
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subroutint $185) 
3110 REM % 

3— col de-P— sMnkboi-m em «±d 

3180 DEFFN'ISB 

3130 REM ; if line not blank 
: IF Q»(L)<>» ■ THIN 3140 
i GQSUl 'lliaS) 
I COTD 3190 

-3140 IF STR<at<L>,i7,15)^» "THEN 31S0 
: GOSUB '111(4) 

: ys-vs-4 

-3150 RIM I begin tabular 

I GOSUB '100(*bt') 
I RiM J set col-1 /qr 

GOSUB '130(STR(Gl$(L),I,ai)) 

I GOSUB 'lOO('tr') 
3160 REM i set Snd col / 

I GOiUB '130CSTR(Q«(L.),37,15)) 

: GOSUB '100( 'tc' ) 
3170 RIM ; stt col 3 / ql 

: GOSUB '130(STR(Q»<L),43,S0)) 

• GOSUB 'lOOCtl* ) 
3180 REM • end tabular 

'. GOSUB 'lOOt-ff > 
-3190 RETURN 

3iOO REM %t 
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subreutint (lii) 
5 Rf H % 

so^ eui-i^ein^ line An m^mmX CRXTERION TEST f^o^niai 

iiiO RiM_ jEgiputi start of tixt 
leSQ REH Inst a blank line 

I IF Li> i THEN aasi 

I OQSUB 'lii(lS) 
I GOTO 3330 

-3a3i IF iTR(Q$CL>,S3,l><>'."THlN 3231 
I CQiUl ^111 (7 J 
I VS»Vi-7 
: GOTO 3i40 

-ii3i IF iTR(QS(L),fia><>"*''GR STR(Qi{L).Bl,3)<>- -TNiN 3240 
: OraJl '111(4) 

-3840 RiH Ibigln tab 
I CMUB 'lOOC'btM 
I Ret |$tt flldihead (if any) 
: IF Ll>il THEN 3E§0 

t GOSUB 'iiO(iTR(Qt(L}iS,i6)^ 
3241 REM ibtfin tab 

I RiH uet sidehtid (if any) 
i IF Ll>il THEN 3210 
i MO-2 

; GOiUB 'i30(BTR(Qi(L)tSa&)) 
-32S0 REH tstt ti^t caluin 
COSUi 'lOdCtl") 
HO-1 

Ll-PDS(iTR(Qt(L),eo,43N>* •) +S1 
IF LlsfS THfN STRiaiCL),fE,3)^HiKClilAiG5 
I IF Ll*28 THEN BTRCQt (L) ji2,6)i'HEK (lglA26lllA20) 
: IF LKil THEN Ll»i2 
I Lil( )-STR(Qi(L),Ll) 
: Li=LENCLli()) 
: Ti^-'tl' 

: IF Ll^ii THfN 3270 
laso REH I dsuble Indint/tet 
: GOSUB 'lOOt'isiOp') 

I GOTO 3210 

-3i70 RiH i nst Hqpe rui# 

: IF P0S(STR(at(L),Ll,L2) <> IF) <> 0 THEN 3^80 
: GOSUi *10a(l) 
GOiUB aOOCiiM 
GOSUB 'lOOC'tJ") 
GOTO 3210 

-3180 REH f sfft 2nd col 

I Ttil'tl* 

I GOSUB 'l30(STR{Qt(L),Ll,L2)) 

: GOiUB 'i06(T^) 
-32i0 RlH _ I tnd tab* 

I GOSUB 'lOOrtf) 
-3300 RETURN 

3310 REH U 
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subroutint (187) 
33gO REM X 

3330 DIFFN' 127 

3340 RiM ; if lint not blanlc 
I IF Q»(L)<>" • THEN 3350 
I GOSUB '111(16) 
I GOTO 34S0 

-33S0 RiM ; bMin tab 

: GOSUB 'lOOCit') 
3360 REM I stt itii no. for col [1] 
; LlspnS<Q*<L)<>' •) 
\ IF Ul > a THEN 33B0 

3370 GOSUB 'ioa<n 

: GOSUB 'i9<STR(Qt(L),Ll,3)) 
-3380 GOSUB 'lOOCHrM 
33iO REM % 5ft Byibol for col ri] 

: IF STR<a*(L),10,li)*' • THEN 3410 
3400 GOiUB '130(STRiQ*(L),10,POS<STR{Q»<L),10,li)"« ")-l)) 
-3410 GOSUB '100(»tc*) 

34S0 REM I tfBt for final crittrian tt»ts 

I IF VAL(STR<Q»<1),64)) ^ 39 THIN CS * SB 

• ELSE CS-86 ' 
3430 REM \ tab / invoht text lodt 

: L1»P0S<STR(Q»(L),CB)<>' M+CB-l 

: L1»()^STR<Q$(L),L1) 

: L2^LEN(Ll*n) 

\ Tf^'tl" 

: IF Ll ^ Ci THEN 34iO 
: IF LI > SO THEN 34S0 
3440 REM \ singlf indtnt 
I GOSUB '100("ii3p») 
: GOTO 3460 

-34S0 RiM I double indent/iet 

: GOiUB 'lOOCislip') 

: T»='tr» 
-3460 REM set Snd col 

I GOSUB '130(STR(Qt(L) ,Ll,Le)) 

: GOSUB '100(T«) , 
3470 REM ; end tabs 

: GOSUB 'lOOCtt") 
-3480 RETURN 

3490 REM %t 
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subrautini (128) 
3S00 RIM % 

se-fc S— col sum bio J. y d e +' 



3B10 DIFFN' 138(08) 

3520 REM I if lint not blank 

I IF Q»(L)<>'' • THEN 3530 

: GOSUE '111(16) 

I GOTO 3620 

•3530 REM' ; begin tab 

I GOSUB 'lOOCbt") 
3140 REM rsit syiibol for cqI 111 

: Ll=PQS(Gi*iL)<>'' ■) 

: IF Ll>fcO THEN 3560 
3550 GDSUB '130(STR(at(L) ,l,iO) ) 
-3560 GOSUB '100 (He') 
3570 REM f tab / Invokt ttxt lode 

: Ll=P0S(aTR(Q*(L),CB,38)<>» M+CB-; 

rL;l»( )aBTR(Q*(L) ,L1) 

t L2=LEN(L1»()) 

: T$=»ti" 

: IF Ll = C8 THEN 3600 
: IF LI > 50 THEN 3590 
3500 REM ; sinile Indent 
I GOSUB 'lOOCisSp*) 
: GOTO 3600 

-3590 RfM ; doublt indent/set 

; GOSUB ■100(»islSp*) 

: T»«"tr" 

•• GOTO 3600 

-3600 RIM ; Bit End col 

: GOSUB '130(STR(Q*(L),L1,L2)) 
I GOSUB '100(T$) 

3610 REM ; end tabs 
; GOSUB '100(*ef) 

-3620 RETURN 

3630 REM %f 
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■utiroutin* (129) 
3640 REM X 

W 9't. SO "tea m -f 
3€50 DEFFN'iaS 

i IF yB:>OTHiN 3660 

: vs^ys+vs-i 

t Vi^i 

-3660 REM : coiputf start of text 

i L1-PDS(Q«(L)<>" ■ ) 

3670 RIM ; if lj.ne not blank 

; IF Ll < 6 THtN 3740 

3630 REM • begin tab 

' ^||||^^Q*^L),Ll,lS)<>''To Contimii" AND STR<Q$<L) ,Ll,lS)<>«To CQntinuf"7 

I SfR(Q*(L>,Ll,lS)=" " 

I Ll^Li+li 
-3685 STR(Q$(L),Ll+i,5B-Ll)=0R ALL (SO) 

t GDBUB '100(«bt'' ) 
.3690 REM • tab / invokt ttxt »ode 

: GOSUB 'iOOCtl- ) 

I MO^l 

3700 L1^PQS(STR(Q*(L) ,S4,41)<>" M+SS 
1710 H*()^STR(Qi(L),Li) 
3750 La=LEN(Ll$()) 
3730 TiBHl" 

I IF Ll > 35 THEN 3740 

I IF Ll > 14 THEN GDSUB '100 ('1640") 

: GOSUB '130(aTR(Q*(L) .Ll.LS) ) 

i GDSUB '100(T*) 

: GDSUB '100("t+.") 

: GQSUB 'llKVn; 

i GOSUE 'ill (VS.' 

• GOSUB ail (16) 

I GOTO 3770 

■3740 REM ; set continue ind gotc 

i GOSUB 'lil(VS) 
I GOSUB 'llKVi) 
: GOSUB '111(16) 

I JE 'THEN GDSUB '130(STR(Q*(L) .Ll.Li) ) 

I IF Gl$(L)<>» 'THEN GOSUB '100(»trM 
r ELSE GDSUB ^100(»fll6") 
3760 REM ; f nd tabi 

: IF Q$(L)<>' "THEN GDSUB '100("et") 
-3770 V8=99 
I V9=99 
: RETURN 

3780 REM %♦ 
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subroutine <130) 
37S0 RfM % 

3800 DiFFN'130(Ll*()]i 
3810 B»-HlXt7F) 

3iS0 RIM ; EQiputt start of ttJct 

I L1»P0S(L1$<)<>» ") 
3830 REM I not a blanN Une 

: IF L1<>0 THEN 3140 

: GOTO 3990 

-3840 Ll»()-STR(Llf (),L1,64-L1) 
3SiO LesLEN(Ll«()) 
38iO REM ; tMt for all caps 

; IF P0B<L1«()> iA) <> 0 THEN 3880 
F P0S<L1»()^ •%■) <> 0 THEN 3880 
1870 WsHEKdi) 

-3880 REM I translatf mpact chars/build tabli 

i STRAN(Ll»(),HEK(iOAO))R 
^aoA K SEARCH L1«()<1,LS-1>, ^HEK<S'0) TO 
3890 W^O 

3900 yo^o 

-3910 REM f delliit first / ntxt word 

: W7=wo 
39iO W-bl+l 

3930 WOsVAL(M$<N),a} 

3940 IF WO^O THEN WO -US +1 
i RIM last Mord? 

3950 IF W0-W7O1 THEN GOTO 3960 

: IF yER{BTR<Ll$(),WO+l,l),»#")^l TIIHN 3910 
I IF yER(STR(Ll$<),WO+l,l),'."*=l THEN 3910 
I IF yER<STR(Ll$(),WO+i,i),*)"'>=l THEN 3910 

: GOTO 3910 

-3966 Srwil THEN°3i7f ^"^-"^ ^^^^^^ " rfiRMlNAlE WITH AN fiL 

I CQSUB '99<B») 

: REM INSERT SPACE BAND 

-3970 COSUB '140(STR(l.li(),W7+l,W0-W7-l)) 

: REM SET WORD 

3980 IF WOOLa+1 THEN 3910 

-3990 RETURN 

4000 REM 
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subroutint (liS) 
4010 RIM % 

40a0 DIFPN'139 

4030 RfM I If line not blank 
% IF Q»a)<>" ■THIN 4040 
: Q08UB '111(16) 
t COTD 4070 

-4040 RfM Jbtfin tab, stt »idt htid (if anu) 
; COSUB '111(7) 
i V8-VS-7 
GOiyB 'lOOCbf ) 
HO»S 

COSUB '130(STR(Q«(L),6,9)) 
GDSUB 'lOOCtl') 
HO^l 

4050 REM fset ByiboU 

I MAT SiARCH Qi(L),^*i"TO WiO 

. rLJMjO 

-40S5 

i IF W0=0THiN 4060 

I, GOSUB ' 141 (STR (Q* (L) ,klO ,4 ) ) 

• GOSUB 'lOOCtcM 

: GOTO 40S5 

-4060 REM Itnd tabs 

; GOSUB '100(»tt'') 
-4070 RETURN 

4080 REM X* 
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subroutine (140) 
4090 REM X TAEG Report No. 88 

single waor^cl Mi.-tl-i mi-imboJ. Xool- 

4100 DEFFN'140(W») 

4110 REM ? 1, 3, or 4 char Nord ? 

: REM WORD LENGTH « 0, 1, i. 3. 4, >4 

: ON^WO-WTJOTO 4iaO, 4130* 4510, 4140, 4160 

-4 ISO STOP '0 - word Itngth" 

-4130 REM il-char wd ♦ ? vtrtical ru" ' ' 
t IF W*<> •♦■THEN 4510 

■ t GOTO 4130 

-4140 REM |3-char Nd ... ? elipsfB or set # ? 

i IF VER(W*, ■><##• ) S3 AND STR(W»,l,i )' iHfcN 4180 

: IF W$<> THEN 4210 

i GDSUB '10a<H0> 

i GOSUB aOOein") 

I IF WO <> LS+1 THEN 41B0 

i IF L»16THEN 4150 

: STR<Q*(L+1)^ES,37)^0R ALL (SO) 

- IP P0S<Q»<L+1)<>" ■) < 50 THEN GOSUB 'lOOCisSo") 
t tLbE GOSUB '100(«is5p") 
t T$ ^ 'tj" 
i GOTO 4S50 

•4150 T* s ■tJ" 

: IF VER(STR<Ll*(),LS-a,4),''#A##')<>4rHbN 4aS0 

STR(L1»( ),WO,LS-4-W0)^OR ALL(SO) 
i GOTO 4150 

•4160 REM ? pagt ? 

% IF yERtWt.'SAti" )<>4 THEN 4170 
I GOSUB '10a(4) 

I IF itR(W«,l,i)^'l' THEN W»=STR<Wi,a.a) 
l GOTr ^^^40 

-4170 REM ^ stt # ? 

: IF VtiRfW*, ■)<##: MM AND STR(W«,1 ,15-"#' THEN 4180 

I ELSE GOTO 4500 
-41B0 REM strip leadir.B "0" froi set # 

: IF STR(W»,5,l)-'0' THEN W*=STR(W.*,3.a) &HtN(ia) 

: ELSE W»»STR(W»,S,3) & HEXaS) 

: GOTO 4530 

4190 DEFFN'141(W*) 
-4200 REM ? myibol ? 

.' MAT SEARCH Sl$(i,^W$ TO S* STEP 4 
*. IF yAL(S*,SMO THEN 4510 
i S=INT< (VALiSf ,S)-l)/4)+l 

; Wi=S3f(S,l) 

: GOSUB aOi(B) 
; GOTO 4540 

-4510 REM I ? underlined ? 

I MAT SEARCH W», > mxllf) TO SS 
: S^VALtSt.S) 
S IF S-0 THEN 4230 
4250 REM undtrlintd - trtat char/char 
: FOR Clal TO W0-W7-1 

: IF STR{W*,C1,1) > HEX<7F) THEN GOSUB '101(2) 

: EL3E GOSUB 'IOS(MO) 

: K'MSTR(W»,C1,1) AND HEK(7F) 

: GOSUB '99 (K») 

: REM I set char 

: NEHT CI 

: Gain 4550 

-4530 REM irt-lnvoNf currtnt lode 

; GOSUB '102 (HO) 
-4240 RfM «tt word 

I GOSUB '99(Wt) 
-4250 RETURN 
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LIST. IT 

This program contains tht necessary instructions to obtain a listina of 
the composed text created by the TYPE.TST program. It may he used for proof- 
ing the output of the TYPE.TST program or for correcting minor transmission 
errors should they occur. 
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U 1ST ^ IT 
aaM lis AUTHOR iystti 1 Ctypiiftttr traMilmgion) 

DIM Ql*(4>i4 • ^^^'^^ 

AA^A a™ INlTCOOiaitO 

■? DIH Q3tC4)64 ' ^•^^^^^ ^""^'^ 

I OATA LOM DC OPiN Ttl.'TVPlSfT^ 
I LlHlTi T»i,01,0i,0rj 
4010 SiLiCT PRINT OOiCBd) 

I PRINT Hix<dioii 

I PRINT ATaOt40>i 

1 PRINT HfSySi)'^*™^^^^^^^^' ™ S^^^"^ iMNDINa....SR7i 
1030 INIT C40)0it<) 

^ ioiu^'-fli*^'®^^'* '^^^ RiADy... 

^'''? P uOAD lA T #1,<03.Q3) OesC) ' ^'"'^^ ^^^^ 

ipM ■ THIN 1110 

^ GOTO iOSO 

oiSuE ' lis ' -^"^ tranmilssion 

1 END 

leOO REH % 



IS 10 REM »♦ 

ills 5lfi ** ^librgutini **»**»***»»**t#*#*^#«#»4#»#»#»»##«##»*#« i i 

1E30 REM Abstract > - ^ 

lilo iih ** tfltcoiiunaeations Qm%mn, 

1300 REM ***#****#***##«##»**#******#*«*###*#»«#^## 

1310 DEFFN ' lis 

IIlECT print 00i(64) ' ^''^"^ 

I PRINT AT(15*0,)iHEK(06) 
I PRINT ATCS.O)* 
I Q3f ( )^QS$i ) 

: JTRAN (Gi3*(),HEX(5B0E5D0Fg0e0))R 

t PRINT Q3i<) 

I SELECT PRINT 005 CgO) 

lilo IIlecT print aiBC130) ' bufftr an printtr 

I STRAN (QiS(),HE)<C7E7FE0i0))R 

: $TRAN (Q3$()_p 
1400 FOR J ^ 1 TO 4 

: PRINT 

t PRINT HEX(0E)IQ3f n) 

t _ PRINT HEX0F(Q2i(J)) 

: NEXT J 
1410 SELECT PRINT 00i(«0) 
1510 RETURN 

9900 %# Prograi tnt^'u utility (prog. aid) 

9901 DEFFN ^01 "LIST JD' 
9904 DEFHNUT" " 
9906 DEFFN 'OS "PR IN? • 
9908 DEF^ aaB«PRlNTU5INC • 
9910 DEFFN ' 03 "HEKC" 

991S DEFFN 'IS^HEXOFC 
991^ DEFFN '04" IF • 
901i DEFFN 'eO^BTR{" 
9918 DiFFN'OS'tHEN • 
99S0 DEFFN 'SI ■VAL(» 
93Ee DEFFN 'Oe^lLSE ■ 

DEFFN ' iE" AT (• 
99f6 DiFFN'OT'-GOTO • 
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9930 DiFFN'eS^TOR • 

9931 DlFFN'g4'»)iFFN ' " 
9934 DiFFN'69"STiP • 
9936 DiFFN'ii'COSUB ' • 
9938 DiFFN'lO'NEKT " 
9940 DkPFN' 16 "RETURN" 
9942 DEFFN'li'ERRfiR • 
9944 DIFFN'BT'LINPUT • 

9946 DEFFN'lS'SAVi • 

9947 DiFFN'Si'RENUNliR TO STEP..* 

9948 DEFFN' 13 •SCRATCH • 

9949 DiFFN'i9«TRACI ■ 

9950 DEFFN '14 'DISK " 
99B1 DEFFN '30»RiM" 
99Sa DEFFN ' IS •SELECT • 
99S3 DEFFN '31 "SEARCH • 

-99S4 DEFFN '16 

: *GIQ/00S<4003> 

t $OIO/00i(*IPirifl€girfalii iAiltdesi ') 

J tGIQ/005<400D400A400A) 

9955 $GID/005<"isittiifritiltnfii ilgieniti iniue«f bttiri: ■ > 
: tGIQ/005("e(ilieialdtilnlei iCi'isi iritiai'tfdije *> 

: $GIO( 05300639, Sl») ' 

9956 $Gig(710lii011il6D0011E51D00171054aiO.Sl$) 
: SG ID ( 7 1 0 186 OS lEi6D 0 0 1 lESiDO 0 17 1 054ig 0 , 81* > 
I *GIO (7101B6031E36D00lli53D00171054e30 .Sli ) 
: *G ID ( 7 1 0186 04 1E46D 001 1E54D 0 0 17 1 054g4 0.81*) 

9964 »GlO/005(400D400A) 

I $Gio/oo5('iifnacgrflii g(eia-fiiOi iuasiei ioa gfioarf ii€Oi)e "> 

% *GlQ{05300639710186071E76D0011i57D001?10l4a70.Sli) 
I *TRAN(il»<7,l>,HEK(20iO))4FR 
: $Gia( 050015570710,31$) 
-9966 *GlQ/6©5(460D400A)I 

I $GIO/005(*iaididirif€sgsiii ") 

: *GIO{710i860B710E4SB07101860C71054aC07101B60D71054aD0400D400C.Si«) 

: IF STR(Slsai,l)<>»3»AND iTR(Sl$,ll.l)<>"B''rHtN B966 

: SELECT #0 <STR(S1»,11.3)> 

I ERROR GOTO 9966 
9963 •GId/005<400D400A400A400A> 
9369 DIM S«(4)64 

: LIMITS T*Btit.nui",S,Sl,Sl 

: ERROR GOTO 9954 

9970 «GIO/0^05(4003400A) 

: $Gid/005(*iRiEeAgDiyi e<iBeA€SQitc@-ise}'} 

: $GlU/OOS(4eOA400A) 

9971 DATA LOAD BA T(S+1)S«() 

: HEXPACKSTR <S1$ ,9 ,a JFROMSTR (Sl» , ,4 ) 

i STR<Sl*,9,a)-DAC STR<S1»,7,1> 

I HfHUNPACKBTR(Sl$,9,S)T0 STR<S*() ,14.4) 

I STR(S«<),37,1)=STR(S1*,7,1) 

: DATA SAVE BA T(S+1,S1)S$( ) 

I LOAD DA T (3)9998,9998 

9976 DEFFN '0 

: DIM 8$ (4)64 

: LIMITS T'stit.nuii'^.S.Sl.Sl 
1 ERROR GOTO 9954 
9973 DATA LOAD BA T(S+1)S*() 

t HEXPACKSTR (Qi$, y, e )FROMSTR (S» (), 14. 4) 

1 8TR(Bl»,9,e)-DAC STR(S*() ,37jl) 

', HE)<UNPACHCTR(81*,9,2)T0 Slfrt(S$< ) ,14.4) 

I DATA SAVE |A T(S+1,S1)S»( ) 

i LOAD DA T (3)9998,9953 

-9998 DEFFN ' 126 »1440 " 
9999 »G10/005(400D400C400C) 
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TRAN.TBL 

This progcain contains the matrix of the symbol mnemonic codes and 
the corresponding character command strings required by the typesetter. 



8^ 
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TRAM ^ TBL 



0 ^PSTAT - •CONSOLE' 

1000 REM % WEATHER SYMigLS TABLE 

iOiO RfcN TABLI Situ CONTAINS THE NUHERIC DMSlGNArORB HOR VHE CURRHNT WMAIHER CO 

NDITION BY nCLS. _ " 

lOaO REM THLiLE_S3*0 CONTAINS '^HE OUTPUT CODES REQUIHED TO CREAfH fHESi SYMBOLi 

1030 COM 51$ (128)4, 83$ (128,3)13 I REM COMMON SYHML TABLES 

1040 RiM I ilto - DESIGNATOR TABLE 

i050 REM : S3f() - SUBSITUTION TABLE 

lOeo DIM B$ll ii^HEH(7B) t REM BEGIN COMMAND i% - for PENTA) 

1070 DIM E$l: If-HEHCTD) : REM END COMMAND - for PENTA) 

1080 DIM Z$B: Zf-* REM WAS HEX (7B6F6€3l7D ) ^ REM INVOKE BYMBOLS-FUNr FOR 1-CHA 
R 

1090 I 

loss % ! 



! I Rtplaciiitnt Codt 

10S6^% Ktyword I Deserif ilon | 

iiOQ I ! ' ! Syebol 

^^^^ ! ^Df f initipn _ f Mtiory Aid 



iiOS 81$ ( E)^"%0S." ■ 
$ & "T t Bt !k •gB" 
1E04 Si$( 4) = *'WW04" 
• 33$ ( 4 2 ) s ■ R 

iiOi Sl$_(' 5)^"WW0S" 

■ S3$ ( 5 2 ) ^ ■ ■ 
iaOS Bl*(' 6)="WW06" : 

: S3$( 6,a)=^ ' • 

laOT Sl$( 7)*''W«07" I 

■ S3$( 7,3)^ " ■ 
lEOB Si$( 8)i''WW08" ! 

■ S3$< BwE)= * » 
1E09 Sl$( 9)^''WW09' I 

■ 33§ ( 9 8)^ ' * 

isio si$r io)^*iiiiwiG' : 

; S3$( 10tE)» ■ * 
ifill Sl$( iD^'feiWll" \ 
I S3$( ll*Ej^ ■ * 

liia si§( iE)^''wwii'* i 

: S3$f lE,E)e • * 
1213 Sli< i3)it»WN13'' • 
I S3$( 13te)^ ■ • 
1^14 81$ ( 14)^»ywi4» : 
I B3S( 14,E)^ ■ • 
1S18 Bl$( 15)3'"WW15" : 
: S3$( ISwE)^ • • 
lEli 81$( ia)s*WWlS' : 
I S3$( lSwE)= • ■ 
lElT S1$<17)^»WW17« : 
I S3$ ( 17 E ) = ■ ■ 

iais ei$('is)^'iiJWiB'' - 

I S3$( 18, E)^ ■ ' 
1E19 81$< 19)i^"WN19» : 
' S3$( 19 S)^ ■ ■ 

isio si$('iO)-'wwao' i 

I S3$( 20,E)= ■ • 

liii ii$< Bi)*«wNEi" I 
iiei si$( ED^^'Ni^es* i 

f R3$( EE J)s " • 

1EL3 ili: E3>=*WNa3* i 

I S3$< E3,E)^ ■ ■ 
lil4 B1$C i4)*»NfelS4" t 

% m%{ a4,a)^ ■ ■ 

I sate iis,^)^ ' ^ 
iii? iif( i7)*»WB7" I 

i Sli< ETtS)^ * • 

iiE§ 81$ ( WM}^^m^M^ I 

: Sas< i8,fi)* • • 
ie^9 iI$C E9>»"6^Si» i 
I S3i< E9ti>^ ■ - 
iE30 Bi%i 30)i^'WW30" I 
I S3$< 30vE>= ^ ■ 
1131 81$ ( 31.^*WW3i" : 



ntn THUNDER 
Ir E$ 8r • 

REM SMOKE 
i S3S( 4,3)^ ■ " 

REM HAZE 

: sa$( 5,3:^ ■ ■ 

RIM ' DUST 

83$( 8,3)- ■ • 
REM_ BLOW INC DUST 

J S3$( 7,3)^ " ■ 
REM DUST WHIRLS 

I S3$( 8,3)^ ■ ■ 
REM DUST IN SIGHT 

I S3$< 9,3)= " " 
REM TWO BAR 

t S3$ ( 103)^ ■ ■ 
REM SHALLOW FOG IN PATCHES 

I S3$( 11,3)^ ■ ■ 
REM SHALLOW FOG 

■ S3$ < 12 3 ) ^ " ■ 
REM DISTANT LIGHTNING 

: S3$< 13,3)- ' ■ 
REM VIRGA 

- S3$ ( 14 3)^ * " 
REM DISTANT PRECIPATAT ION 

* S3$^ IS 3)- ■ ■ 

REM PRECIPATAT ION IN SIGHT 

S3$( 1G,3)^ ■ ■ 
REM DRY THUNDER 

I S3$( 17,3)^ ■ ■ 
REM SQUALL 

1 S3$C 18,3)^ ■ " 
REM FUi^EL CLOUD 

I S3$< 19,3)^ ■ • 
REM DRIZZLE ENDED 

i S3$< SO, 3)^ ■ ■ 
REM RAIN ENDED 

I S3f< EltS)^ ■ ■ 
REM SNO^ ENDED 

i S3$( E0,3>s ■ » 
REM_RAIN & SNOW SWiD 

I S3f< E3,3)* • ■ 

REM FRlEZiNe iNeBy-" 

I S3$( E4 3)s * ' 
rIm RAXNiiitojiRi ENDED 

* S3$< E§ 3)^ ' ' 
REM SNOW SHOWERS ENDED 
_l S3$< a6,3)« ■ ■ 

REM HAIL iMWERS ENDED 

■ S3$( 27,3)« " ' 
RIH Wm INDID 

I S3ti< E8j.3)= " ■ 
REM TmNDER lNDED 

I S3$< a9,3)« • ■ 
REM DUST DiCREASB) 

I S3$< 30,3)« ■ * 
REM DUST, NO CHAME 



* 


S3i( 


a a ) 


h ^q4'* h E 


• 


83$ < 


4.1)^ 




■ 
■ 


83$ ( 


5,1) = 


■C" 


• 
• 


S3$( 




■J" 


• 


S3$( 


7,1)^ 


S N 


• 


83$ ( 


B.i)^ 


"0" 


• 


83$ C 


9.1)^ 


'E* 


■ 


S3$C 


10,1)^ 




• 


S3$C 


11,1)= 






S3$( 


1E.1)= 




* 


S3$< 


13,1)- 






S3$( 


14,1)^ 






S3$< 


1S,1)= 






S3I!;( 


16,1)- 


■ ■ ■ 




83$ ( 


17,i)= 


^41» 




S3$( 


13.1)^ 






S3S( 


19.1)= 


*$1^$U* 




S3$( 


20,1)* 


■$ss$u" 


• 


S3$< 


Eia)- 


"fO" 




S3i< 


a2,i)» 


■$i.$u^ 


m 
m 


S3i< 


13.1) 


"$s($u" 




83$ < 


E4a)= 




t 


SMC 


Ei,i)= 




m 


83$ < 


Ei,!)^ 






83$ C 


27,1)^ 






83$ ( 


Esa)'' 


iiy ■ 


m 
a 


83$ ( 


isa)= 


*M* 




S3$( 


30a) = 






83$ ( 


3i,i)«i 


■ _ ■ 
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5 i3i( aitS)^ ■ • 
1131 sif < 3a)s«ww3a* 

1133 ei*( 33)»"WW33^ 
I S3$< 33,a)s • - 

1134 Slf ( 34)»'WW34' 
^ S3f( 34,2 )s ' ' 
li3E Bit ( 3S)^"yy3S' 
: m%{ 35, • ■ 

1136 Bl*< 3S)«'WW36^ 
I S3i( 36,1)= ■ ■ 

1137 Si*( 37)a"WW37» 
S_S3*C 37,1)^ " ■ 

1135 Sl|< 3S)i^"li^kl38" 
S 3S,i)^ ■ * 
XBB^ Slt( 3i)*'WW3S" 
^ S'iSC 39, i)^ ■ • 

S\f C 40)i«'lifW40'' 
^ Bmi 40, S)^ • " 
lS4i bli( 41)-"W»41" 
^ i3$< 41,2)^ ■ ■ 
1^41 Bl«( 41)^''NW4i* 
I S3t( 4a*l)» ■ ' 
1S43 eif ( 43)s"yisJ43'' 
I S3$< 43,1)^ ■ • 

1144 Biti 44)^"lifW44' 
: S3$( 44.1)^ ■ ■ 

1145 SU< 4S)-^WW45" 
I S3S( 4i,E)^ ■ ■ 

1146 BIS < 46)3"Wy4€" 
■ e3t( 46,1)^ ■ * 

1147 Sif < 47>s»WbJ47» 
j S3$( 47,1)- * ■ 

1148 sue 48)^"WW4S» 
83$ ( 4B,B)^ " " 

ia4S_Sl$( 49)^"WW49» 

I B3S( 49, g)- • ■ 
1610 31$ ( ip)s"Wlii50" 

I S3$( 50, E)^ ' ■ 
1630 Bl$< Bi)s"WW51' 

:_b3$(_51fE)s ■ * 
1640 Bl$( 51_) = "WNF^» 

I B3$< SI,!)- 
i%BO Bli< B3_>*"WW53" 

I B3$ ( 53 E ) - ■ ■ 
ii60'Bl$< 54')i'WWi4'' 

: B3€( 54,1)^ • " 
1670 51$( 55)^"WW55" 

: S3$( 55,1)- " - 
1680 i;i$< 56)^"WW56" 

: 33t( Sfi,l)^ ■ ■ 
1690 81$ ( 57)^"yW57» 

: S3$( 57 ,S)^ • ■ 
1700 B;$^ 58)^^WW58" 

: S3$( 58,1)^ ■ " 
1710 Sl$( 59)^''WW5S" 

I B3$( 59,S)= ' ■ 
1710 Sl$( 60)^"WW60» 

I B3ti 60,2)^ • • 
1730 Si»( 61)=*WW61" 

t S3t^ 61,1)^ " ■ 
1740 BlfC 6g)^"WW6E" 

: S3$( 61,2)^ ■ ■ 
1750 Bl$( 63)-"fejW63" 

I S3$C 63,2)- ■ ^ 
1760 Bi$( 64)-'liJW64" 

I S3$< ^4.1)- ■ ■ 
1770 Site 6E)-»WW65'' 

: 83$ ( 65,1)- ' • 
1780 ai$( 66)^^Wy66'^ 

! S3$( 66,2)^ ■ ' 
1790 Sl$l 57)^'WW67' 

: S3*( 67,2)^ ' ■ 
1800 Si$( 68)-"WW63" : 

:_S3${ 68,2)= ^ ' 
leiO Sl$( 69)^'*^W6?" 
* ^_S3$( €9,g)= * ■ 
ISEO 31$ ( 70)^^WW70^ ! 

: S30C 70 ,E)- ■ * 
1830 Bl$( 71)-**WW71" ; 



I Bmi 3ij3)i^ ■ • 

: REM mJST , INCREASED 

i S3$( 32j3)* • ■ 
t REH_HlAVY_mJS7, DECRIABED 

I esse ■ ■ 

^ REH HEAVY DUST, NO CHANGE 

- 53$ { 34 3 ) s * " 

I REM HHAVY fiUST, INCREABID 

I S3$( 35,3)^ ■ * 
I REM LIGHT DRIFTING, LOfel 

I S3$< 36j3)s ■ • 
I REM HEAVY BLDNING. LOU 

I 33$ C 37,3)^ • ^ 
I REM LIGHT BLOVJING, HIGH 

_l B3$< 38,3)^ ■ ■ 
I REM HEAVY BLOIdING, HIGH 

: S3$( 39,3)^ " • 
t REM FOG IN SIGHT 

I S3$< 40,3)^ ■ ^ 
I REM FOG IN PATCHES 

- B3$ i 413)^ ' " 

I REM GROUND TOG, DECREASED 

e B3$ ( 42 3 ) ^ ' ' 
^ REMTHREE iAR, DECREABED 

' S3$ ( 43 3 ) « ^ ' 
. in HEAVY GROUND FOG 

I B3$( 44,3)3 ■ ■ 
■ REM THREE iAR 

* B3$< 45 3)^ ' " 
t REM GROUND TOG, INCREASED 

" S3$( 46 3)= ■ ■ 
: REM THREE BAR, INCREASED 

_l S3$l 47^3)- " ^ 
: REM RIME FOG 

I S3$< 48,3)- " • 
REM HEAVY RIME FOG , 
I S3$< 49,3)- ■ ^ 
t REM ONE DRIP 

I B3$( 50,3)- ■ ■ 
: REM TWO DRIP 

I B3$( 51,3)^ ' " 
I REM VERTICAL TWO DRIP 
I B3$< 52,3)^ • • 
: REM THREE DRIP 

' B3$ { 53 3 )^ ' " 
\ REM VERTICAL THRffi DRIP 

: B3$( 54,3)^ " ■ 
I REM FOUR DRIP 

: S3$< 55,3)^ ■ ■ 
\ REM FREEZING DRIZZLE 

■ S3$ ( 56 3 3 ^ " * 
\ REM HEAVY FREE ZING DRIZZLE 

I S3$( 57,3)^ ' • 
I REM DRIIZLE & RAU^ 

I B3$C 58,3)^ • ■ 
: REM HEAVY DRIZZLE & RAIN 

; S3$( 59,3)- • * 
: REM HNE DROP 

• S3$< 60,3)- • " 
; REM TWO DROP 

• B3$ ( 61 S)^ ' " 
! REM VERTICAL TWO DROP 

S3$< 62,3)^ * " 
I REM THREE DROP 

I S3$< 63,3^- « " 

REM VERTICAL THREE DROP 

I B3$C 64,3)« ■ ^ 
I REM FOUR DROP 

I B3$C 65,3)- ■ « 
REM FREEZING RAIN 

- 83$ ( 66 3 ) ^ * " 

REM HEAVY FREEZING RAIN 

: S3$< 67,3)- " * 
REM RAIN If SNOW 

• S3$< 68 3 3= ^ ^ 
REM HEAVY rain' I BNDW 

: B3$( 69,3)^ » ' 
REM ONH_FLAKE 

: S3$( 70,3)= ■ • 
REM TWO FLAKE 



s B3$( m.u* 

: S3$i 34.1)^ 
'i B3$< 35.1)3 
I B3$( 36.1)ii 
I B3$( 37.1)^ 
I B3l( 38a)- 
Z S3$( 3ia)s 
t B3$( 40a)^ 
: S3$( 4i.l)m 
i S3$< 42a)* 
I B3$( 43a)3 
: 83$ ( 4^,1)^ 
: S3$( 4bai^ 
: B3$( 46a)^ 
I B3$^ 47a)^ 
- S3$( 48a)^ 
t S3$( 4ia)- 
I B3$( 50a)- 
t B3$< 51 a )^ 
I B3$< sia)^ 
I B3$( S3a)- 
I B3${ 54a )^ 

: S3S( ssa)* 

: B3$( 56a)- 

l S3$( 57a)^ 

I B3$( BBa)- 

f S3*( 59 a) ^ 

I i3$< 6oa^^ 

I S3$( 6ia)^ 
: B3$( 62a)^ 
: S3$< 63a)" 
: S3$( 64a)^ 
: S3$( 65a)^ 
I S3$( 65a)' 
i; SS$( 67a)^ 
I S3$( 6Ea)^ 

I S3$( ^sa)- 
I B3$( roa)- 
: S3$^ 7ia)^ 



■T- 

By ■ 

il / ■ 

Mi" 

■f6" 

■$sN*u" 
''$sl$u'^ 
•'$s)$u'' 

■3* 
•7" 
"B" 
•G* 
"R" 

■8" 

• pit 



■ Q ■ 



6 a i| 
S ^ li 

"«s-»u 
"«af»u 

"*Bqtu 
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• : S3*J 71,5)^ • 
1840 Sl*( 7S)»«WW7S» 

t S3«C 7i,a)^ • 
18S0 Sl«< 73)^»WW73« 

: 131^ 73,a)= • 
1860 Sl«'. 74)^«WW74» 
S3«( 74, a)- ■ 
SlfC 7S) = «WW75'' 

S3«( 75,2)" ■ 
S1$C 76) = ''WW76* 

S3S( 76,3)" • 
Sl»( 77)^''iilW77'' 
S3t( 77,a)s ■ 

Sl»( 79)«*WW79' 

S3S( 79,S)B ^ 

si»{ so)-"wwao« 

B3»( SO,S)^ • 
Sli( B1)«^''WW81» 

S3*( 8i,a)a " 
Blf< 82)^*WW8S" 

S3*( 8S,a)^ ■ 
Sl«< 83)»»WWS3» 



1870 
1880 
1890 
1900 
1910 
1950 
1930 
1940 
1950 
1960 
1970 
1980 
1990 

aooo 
aolo 
soeo 
ao30 
a 0^40 
soso 

i 

S060 

ao7o 



S3t( 13,3)1 

S1S( 86)^*WU86' 

S3*( 86,3)= ■ 
Sl*( 87)»»WW87» 
S3»( 87,5)- ■ 

Sl«( ssj^-wwas' 

S3*< 88,3)^ • 
Sl?( 89)» ''NW89» 

83* ( 89.3)= 
Si»< 9 



0) = ''WW90" 

90,3)= ' 

Sl*( 9l)=*WW91» 

S3*( 91,2)= • 
Bl»{ 9e) = "WW9S'' 
S3*( 9S,3)= • 

93)="WW93* 
S3»( 93,3)= • 
Sl«( 94)«'WW94" 

S3«( 94,S)= • 
Sl%i 95) = ''WW95'' 
S3*( 95.2)^- • 

aoBo si$( gej^-wwge' 
: i3»( S6,a)^ - ■ 

a090 Sl«( 97)s«WW97» 
: S3$( 97,3)= " ' 
aiOO Sl*{ 08)»'WW9B" 
: S3»( 9S,a)= " ■ 
alio Sl«( 99)="WW99" 
: S3*( 99,a)a ■ » 
ail5 S1«(100) = '*85."' 
$(100,3)=' ' 



S S3«< 71,3)» • • 
I RiM ViRTlCAL^TWO^FLAHE 

REM THREE FLAKE 

: S3«( 73,3i= " • 
REM VERTICAL THREE FLAKE 

: S3«( 74,3)» ■ " 

REM ICE PRISMS 

I S3«C 76,3)= • " 
REM SNOW GRAINS 

■. S3$( 77,3)s ■ ■ 
REM SNOW CRYSTALS 

I S3*( 78,3)= ■ ■ 
REM SLEET 

: S3f< 79,3)= ' • 
REM RAIN SHOWERS 

S3»( 80,3)= • • 
%1H SHOWERS 



REM 



HEAVY 
: S3* 



RA] 

( 81, 3)^ 



REM VIOL ANT RAIN ^ 

; S3»( 88,3)= ■ " 
REM RAIN & SNOW LOWERS 

: S3*( 83,3)= ■ • 
REM HEAVY RAIN & SNOW SHOWERS 
1*( 84,3)= « • 

REM SNOW 

: S3*( 85,3)i 
REM HEAVY SNOW SHOWERS 

: S3*( 86,3)= ■ • 
REM SMALL HAIL SHOWERS 

: S3*( 87,3)= ■ " 
REM HEAVY SMALL HAIL SHOWERS 

: S3«( 88, 3)= " » 
REM HAIL SHOWERS 

: S3*( 89,3)= • « 
REM HEAVY HAIL SHCJWERS 

I S3$< ro,i)= ' « 

REM THUNDER ENIH'D. RAIN 

: S3*( 91,>)- " • 
REM THUNDER HEAVY RAIN 

REM THUNdIr ENDED, SNOW OR HAIL 

: S3«< 93,3)= " ' 
REM THUNDER ENDED. HVV SNW/HAIL 

■. S3*( S),3)= ■ * 
REM WET THUNDER 

t S3H 95,3)= ' • 
REM THUNDER & HAIL 
I S3*( 96,3) • ■ ' 
REM HEAVY WET THUNDER 
r03*< 97,3)= " ■ 
: REM THUNDER h DUST 
l S3»( 98,3)= ' ' 
■ REM HEAVY THUNDER & HAIL 

I S3»C 99,3) ^' • " 
REM SNOW SHOWERS: S3»<100,i)= 



! S3SC 72,1)' 

: S3«( 73,1)1 

: S3*( 74.1) = 

S S39( 75,1)' 

i S3»( 76.1)i 

i S3*( 77,1)' 

i S3«( 73.1)' 

S3*( 79,1)' 

S3*t 80,1)' 

S3t( 81.1)' 

S3$( 83.1)' 

S3«( 83,1)' 

S3«( 84.1)' 

S3*( 85.1)' 

I S3*( 86,1)' 

I S3*( 87,1)' 

S3*( 88,1)' 

: S3$( 89.1)' 

I S3»( 90,1)' 

: S3$( 91,1)! 

: S3S( 93.1)' 

I Q3*( 93.1)' 

: S3*( 94,1)' 

I 33*( 95.1)' 

: S3*( 96,1)' 

: "SiC 07.1)' 

: S3$( 98.1)' 

i S3»( 99,1)' 

"M'l s3*aoo,a)' 



MlOO,^ 

iiao %■ 



ai40 FOR 
3150 



NEXT 




1 = 4 TO 99 

SI* = ■%'&3TR(S3,*(I),3,a)&' 
Si*(I) = Sl» 
I 



|0 LOAD T#0, "TVPE.TBT" 0 , 699? BEG 6999 



END 

6999 LOAD T«0, "TYPE. INI" 7000, 



BEG 0 
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SEND. IT 

This program contains the necessary instructions for transmitting the 
composed text stream :reated by the TYPE.TST program to the typographar. 



O 84 
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SEND • XT 
®eOO SPSTAT ■ -mBi 

§010 tM pfsi AUTHOR Systii? 3 (typt^ttttr transai»sianHTy©a^rw;,iei data^honi 

^ DIH te*<4>64 ' ''^ 

: INlTCOO^lfO 
0040 RIM ^g^^^j,, • dtciart tt«. i^o Dufftr 

0050 RIH Itspt PiK. coBssnd - "fte' 

I Dm im 

lO0y REQ I ©Pin typesititr filt 

% INPUT "Ifiter disc containing data t© sent'DS 

; SiLECT #1 <Df> 

I MYA LC^D DC OPEN T#i,*TYPiBil 

^ LIMITS T#l,0i,0atD3 
loao SELECT PRINT 005(80) 

: PRINT HEKCOIOS) 

i PRINT AT < 10,10); 

: PRINT "Typographies dataphont # in ^3-78S3* 

I INPUT ■TOUCH ^ Return <iKiC)' to star ^ENDiNo..,.' ,r/« 

I PRINT HEKC03) 

^1060 REH < * load data rtcord froa disk 

S tOPEN #1 

I DATA LOAD BA T #1,^03,03) QfifO 

i IF QgSO s QlfC) THiN 1110 

i^^^ SiC « « ' send data to tupamttttr 

I GOiUi lis 
t GOTO 10^6 

SSBmb i i*^ ^ mend tnd of transBlsmi©n 

• yDsUB lis 

t •610 DISK RELHAiE #1 (4400) 

I DATA LOAD DC OPEN T»l , ■TYPESET ■ 

: END 

lEOO REH % 



lilO 

lapo 

1E30 
1S40 
ISSO 

liso 

1300 
1310 
1380 



REH ** Subroutine* ^*#*####**#*»«*##########»»»######^#######*## i i a 

REM •* Abstract > 

REH ^* Tq Send typasatttr data file tc typtsttter usin^ Atm 

REM H-on / K off teltcoaiuna^ations □Ption* 

REH 

RiM /»#»#*#########«####*## 

DEFFN ' lie 



1380 
i4i6 



RIH 

SILECT PRINT 005 (80 i 
PRINT AT(1S,0,);HEH(06) 
PRIHT AT<i,0)| 
Q3$( >«QEt( ) 

fTRAN (03i( ),H?H (5B7B5DTDeOEO))R 

SELECT PRINT 0 OB (€^) 

PRINT 03*0 

SELECT PRINT 005(80) 

REM 

FOR m ^ 1 TC SSi 
RIH 

KEVIN /Olf R7f,1^30a430 
GOTO 146- 



print current block 



-143^ 3EH 



%Qnd i/m hufftr t© controlltr 
Sinsf for x-off char- 
not H'^Qff char, 



PRir*T AT(09,g5,£0) # # clifir riniyed frs tuMstr (tmtinq for rt-o^t)' 
IF 3TR^^7S,l,l)<>HEH(i3) THM i4i0 



-1440 REH ■ k^ait for k -on chsr. 

KEVIN /019, R7i, 1450, 1450 
PRINT AT(10,iS,50)r* * * Naititig for K-ON * # 
KEVIN R9i, 1410, 1450 
GOTO 1440 

'1450 REM _ _ _ I not x^en char* 

i PRINT ATCOS. £5,50);'$ * $ ch#r rtc.f.vtd fri tupstr Cw/ x-Qn)^ 
I IF STR(R7§aaf OHEHdl) THEN 1440 
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-1460 PRINT AKOBtfiS^SO); 
I PRINT AT(09,S5,SO)| 
i PRINT AT(10,e5,iO)f 
I JF BTRCOaf ^,W^aK>HEH^07)THEN i4iB 
1461 REH reliase disk and delay 33 ^tconds 
i ?^CLDSE_^1 

: SGIO SEND TAPE IND /OlD CA200, RSf) Tf 

: PR^NT_AT<09^iB,F0)?HiK(07)rPAUSE 33 SECONnS* 

: SO 10 DELAY 33 SECONDS (01 OA 02FF 03FK 0400 7100 ISe/l 4000 t 13 1C14 E006) 
: PRINT HE)<(07) 
; iDPEN i4€i,#l 
: OOTO 1470 

-1462 tOID KMT FILLER /OlD (AE00,R8S) Tf 

: PRINT ^TCOS,^ 50}|HEH(0707)riNPUT DISK UNAVAILABLi' 
: tOPEN 1462, 
I CBTO 1470 

- i"4^Fi REM iStnd char to typtsettir 

I $010 S^rit CHAR /OlD (AgOO,R8t) ffi$()Vjili.l> 
-1470 Wb = lNT((tel9-i)/S4)+lS 
• »h8 ^ US - (W5-15)*|4 
■ ^'MNT ATCyS.ftS) ISTRCOasO ,W9,1) : 
1480 NEXT ^^ J^ 
l£0O SELECT INPUT 001 
1510 RfTURM 

S900 %# Pr^irai tntry utility Cprpg.iid) 

MOe DEFFN'Oi'LIBT BD" 

i§04 DEFFN^T*' " 

9906 DEFFN^ 02* PRINT • 

9908 DlFFN^18"PRIfTUSING ^ 

9910 D|FFN'03"Hl)<r 

9910 DiFFN^lS^HEKOFC 

9914 DEFFN*04"IF « 

9916 DEFFN'EO'BTRC* 

9918 DEFFN'65*THEN ^ 

9920 DiFFN'21»VAL<" 

9922 DEFFN'66*ELBE * 

9924 DEFFN'22»ATP 

99S6 DEFFN'OfGDTO ' 

9928 ptFFN'23»ALL(* 

9930 DEFFN^OS'FdR " 

9932 DiFFN*24"0EFFN ' • 

9934 DEFFN'09''STEP " 

9936 bFFFN'2B''GQSUB ' • 

?938 DiFFN'lO'NEMT ■ 

" HO DEFFN' 26 "RETURN" 

Uj4i. bEFFN'li"ERRDR " 

9944 DEFFN' 27 "L INPUT " 

9946 DEFFNnS'^WE " 

9947 DEFFN 'iS* RlNUMlER -TO - , . .STEP * - " 

9948 DEFFM^ 13 "SCRATCH " 

9949 DIFFN' 29^ TRACE " 
9Sli^ DEFFN' 14 « DISH " 
99S1 DEFFN ^30" REM " 
9fS2 DEFFN 'ii* SELECT ■ 
99S3 DEFFN '31 "SEARCH ■ 

-99S4 DEFFN '16 

: *CIO/00S(4003)_ 

: fCtO/OOSCi^Plrioiiiriafif iAilidiii ")_ 

I KuP/0OSC"iUitiiiIiiiti'iltiifi ilinfiitii3illiii7iaiiiifoin") 
I SGig/0r*B(4O0D400A4gOA) 
9fSS iOXD/')^^'C"g5itiaiH!tf linigi fl^igniei iniuiiiibi^irii' ) 

I $€io/of3^'ic«iifididii«?)ifii iOi'i4P iritiqa'idi)i m 
I iGin'fiS300i39,sii_> 

9S^i i<^^^M ;tCia6ffliEliSOOlilSlD0O17i094fil0,Slt) 
^ M ^(?i018602LI^26riOOiigB2D00171^i4ggO.Sift} 

: '7if^iaio3ii3i8ooiiiS3DMjfie54S3o<iis) 

I ■ . ^)013i041E4iDaOUES4DOdi71i^^ 
9M4 jC^:/003C40^D400^; 

I «<-IO/005C^fflin€^riii iCfili-fliOe iu3iiti iOQ &f9Mf§ ^IfiOfl^^ "> 
^ $Giq(CS30di397i01ii©7ir/6D0011ES7DO 
I 16TRANCSli<7,i>,HiHCi0aonOFi^ 
I ^10l05C015S?07lO.Si*) 

? $cid/oeiPi^i^diff»t!3i9i^i 

I »GXO ri iOiSiQB7lOi42iQ7lOlSSWTl054iC071^18GOD710^^ ,81* > 

t IF aTRCSittlitl)C>'3%%HD STRCeiS^i l.iKy"§"ll5MN 99W 
I SiLiCT #0 <STR(Sll,i>.i3)> 
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: ERROR GOTO 9966 
996S «GlD/005(400D400A400A4dOA) 
S969 DIM S«(4)64 

: LIMITS T'stit-nua" ,S,Sl,Si 

I ERROR GOTO 9954 
9970 #<}IO/005U0034O0A) 

i *<UO/005 i 'iRflc«A«<DiYi i ( tBiA^Si liCi -iSi ) " 

: 9GID/OOBC40.:''"40M) 
Sa71 DATA LOAD BA nB+l)B*n 

: HEHPACKSTR<Sl»,9.2)FR0MSTR<Si«, ,4) 

I STR ( a 1* , 9 . S ) =DAC STR ( S i« , 7 , 1) 

: HEXUNPACKSTRtSif ,9,2)10 STR<S$( ) ,14.4) 

I STR<S*<),37,l)=Sf.<314,7,i) 

: DATA SAVE BA T{S+i,il)SSn 

: LOAD DA T{S)999B,999a 

9975 DEFFN'O 

I DIM Sf<i)64 

■i LIMITS T'stit.nuis' ,5,31,31 
1 ERROR iiOTO 9954 
9973 DATA LOAD lA T(S+1)S»() 

: HEXPACKSTR {Sl» , 9 ,S )Ff!OM"i R (S» O , 14 .4 ) 

: BTR(Sl»,^),a)=PAC I3TR<S* . ) ,37,1) 

i HEKUNPACHSTR(S13,9,B)T0 STR(St< ) ,14.4) 

I DATA SAME BA T(S+l,Si)S«<) 

: LOAD DA T ^) 9998, 9998 

-9998 DEFFN ' 1R6 "1440 " 
9999 iGIO/'005(400D400C400C) 
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TABLE 1 
NTC.FD 

Thi,*, table was used to translate the begin tabr 'ar and end tabular 
command codes and the "$" code. These were requlrea Danaiise of peculiarities 
of the Intercom T^n which would not allow these codes to pass on to the Penta 
front end system in the unmodified form. 
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TABLE 2 
NTCA.FD 

This table was added to permit the use of leaderfng with both periods for 
ellipses and with em-dashes for creating ncr1zont?,l rules. 
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TYPE MISC SEARCH FOR RgPLACg WITH 



01 


00 


Sdl $sl$ijQ\ 


SsSdUftluS 


a' 


YJyi 


$-\ 


SgS 




00 


S teS 


saf 550fflOR+ste\ 


01 


00 


SlnflS 


Sdl (flSl f SsSdllflS 


01 


30 


\ 


uS 


01 


00 






d\ 


00 




SgBSSS 


m 


00 


\ 


\ 


01 


00 


\ 


\ 


01 


00 


\ 


\ 


0) 


00 


\ 


\ 


01 


00 


\ 


\ 


01 


00 


\ 


\ 


01 


00 


\ 


\ 


0; 


00 


S 


\ 


01 


00 


\ 


\ 


01 


00 


s 


\ 


01 


00 


s 


\ 


01 


00 


\ 


\ 


01 


m 


\ 


\ 


0! 


m 


\ 


\ 


01 


m 


\ 


\ 


01 


m 


\ 


\ 


01 




s 


S 


01 




N 


\ 


01 




\ 


\ 


Idl 


m 


N 


\ 


01 


m 


\ 


\ 



ERIC 



9! 



I 



TAEG Report No. 88 

TABLE 3 
OATACMA.FD 



DATACMA, FD 
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TABLE 4 



DATACM8.FD 



DATACMB.FD 

TYPE mm SEARCH FOR REPLACE WITH 
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SCAT USER S GUIDE 



INTRODUCTION 



The SCAT system is desigried spocificany for use in conjunction with the 
computer authored texts in symbol learning created by the AUTHOR system. 
Performing the three functions of the user's subsystem, COMPOSITION, requires 
no special computer operator skills on the part of the user. The three 
functions are: 

• COMPOS £ 

• LIST 

• TRAN.SMIT. 

These functions are sufficiant for preparing the computer authored 
texts, ar, created by the AUTHOR system, into the form required by the typog- 
rapher's subsystem j TYPESETTING. 

COMPOSITION SUBSYSTEM OPERATION 

INITIALIZATION. The sys m is initialized by clearing the CPU and loading 

the executive program, S iKT, This is accomplished by performing the following 

steps: 

1. Turn power switch ON 

2. Insert SCAT SYSTEM DISK in an available disk drive 
3 Key: RETURN - CLEAR - RETURN to clear the CPU 

4. Key- SELECT DISK anm 

where "Acm^' refers to the disk drive containing the 
SCAT SYSTEM DISK. 
Key: RETURN 

5. Key: LOAD - RUN - RtTURN 

This will load the executivfi program, START, and display the CDMPCSITION 
subsysteiri function menu: 
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SCAT 

COMPOSITION Subsystem 

KEY FUNCTION DESCRIPTION 

1 COMPOSE 

2 LIST 

3 TRANSMIT 

Depress the Function Key or number corresponding to function desired. 



Depress the key corresponding to the number of the function desired. 
This win cause the program required to execute that function to be loaded 
and a display appropriate for that function will appear. 

COMPOSE (Function Key 1) 

This function performs the composing and replaces the mnemonic symbol 
codes used by the AUTHOR system with the special symbol conmand strings 
required by the typesetter. It offers the option of either composing the 
entire symbol learning package or composing only selected pages or frames. 

The system will first inquire as to the disk address of the Progra 
Instruction file created by the AUTHOR system. 



COMPOSE 








Enter disk 


address of Progranmed Instruction file 



Insert the disk containing the Prograrmed Instruction file In an avanable 
disk drive and enter Its disk address. The system will then Initiate an 
inquiry Into the demographic data: 



EKLC 



COMPOSE 



) 



Enter Job Name (U.S* Navy _ _ _ _ _ ^ 

Enter PO Number ( ) 

Enter Datt (da-mon-yr) 

Enter Typographer- s PO Number 

Enter Job Sequence Number; Current, Firsts Last 

( 
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This demographic data is not critical but does provide the user and typo- 
grapher with a means of identifying a particular job in the system. If the 
user desires, he may leave blanks for the data requested; however, leaving at 
least the "U.S. Navy" identifier may aid the typographer in keeping his jobs 
straight. 

Note: Each entry of demographic data must be followed by pressing the RETURN 
(EXEC) key in order to be acted upon by the computer. 

The system then inquires as to whether the entire programmed instruction, 
or only selected pages (or frames) are to be composed: 



COMPOSE 

Enter Option from Output Selection Menu - ? 

Output Selection 1 - Compose entire text 

2 - Compose selected pages (frames) 



If option 1 is selected, by entering a "1" the entire package will be 
composed. If option 2 is selected, by entering a the system will compose 
anly those pages which are selected. In this case, it will compose each 
selected page and then wait for another to be selected until "STOP" is 
intered. When the last page (or frame) has been composed under option 1, or 
'STOP" has been entered under option 2, the system will add the necessary 
trailer Information to the Composed Text file and then return to the Function 
lenu display. 

.1ST (Function Key 2) 

This function prepares a listing of the Composed Text file on the llne- 
)rinter. Turn the lineprinter ON and depress the SELECT switch on the printer 
md the system will do the listing. 

•RANSMIT 

This function transmits the Composed Text file to the TYPESETTING sub- 
ystem and is, therefore, the last function of the COMPOSITION suh -tem I 
•equlres coordination with the TYPESETTING subsystem and it is, a, 
dv1 sable to verify with the typographer that his subsystem w' ■ ready' 
efore scheduling this function. 

The system will first display a list of steps to be peformed: 
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TRANSMIT 

1. Make sure Telecomnunications Controner is connected to the Modem 
and set for 300 baud, 

2. Turn tha Modem ON, 

3. Set Modem Originate/Receive switch to ORIGINATE. 

4* Dial typographer's telecoFiiTiuni cations number on telephone. 

5. Place telephone handset 1n Modem's cradle. 

6. Verify Communications Indicator Light Illuminated. 

7. Depress RETURN to start transmitting. 



Upon perfoifiTiance of the listed steps In sequence, the sytem will commence 
transmitting the Composed Text file to the typographer in blocks of approx- 
imately 100 characters. Upon receiving STOP coninands from the typographer's 
system, the TRANSMIT function will pause until a SEND command is received 
and then continue with the next block. This pause permits the TYPESETTING 
system to store the received data and get ready for the next block. When all 
of the data has been transmitted, the TRANSMIT function sends an End of Trans- 
mission coimand and the transmission is complete. The system may then be 
secured. 



99/100 ^9 



TAEG Report No. 88 



APPENDIX D 
CODE SETS 
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Code Sets 



SiiUi' ,! tninfiiitrr i ,iM ijiiili'f stanil MUfiiliMrs tinK .in(l nnt 
li*rii'iH ami sstubuls. \sv t.iii t\vi\nv v.uh (h.irditi'f tit ifu' 
,ilpl).UuM ,\ un\i\uv iuimht»r. VVi* tiin turihor iissign ,\ 
unii|ijp numlHW in ons nlhiT sunbol sm' iwvil m our 
iu,ufiiiu' s langUiigi' nr mtiv svl. UmiigH l)ils, wt» ttin luivi' 
a piissilili* I^U \inu\kiv itinihiiuultwis or mhIus U''). Si»vtMi 
Uils ^iws j possihk' IJH uHlvs ill iinci 0 hils .1 pcj^isiblu 



! iluTC lire si'vt'rji HMnildfd ctMh' stMs lurri'mlv in 
usv.. ^imw Wkv 1 1 S anil ^vlvt uk iNi* li bWs. ASC II usvs 
h\\^, and IBt Dli usi's H biN. rhc If^if^rC'ont 100 inliMfiij! 
c niii« K a siiprrsfi ijt ASC II atid usi*^ H \u\s, Wu^ iabi'/ hvUm 
shuwH ihv Ijiturv valuf, flu* cliMinhil iKjuivaliMU, nt 
valijis hf'xacit'c iinal valut*. iincj iho nuMning in ilU'DIt \ 
ASCII. Si^lfclrii, 1 1 aiuMnlrf COni 100 fnli'mal CjHli'. 



Binary im. Ortnl Hv%. EBCDIC ASCII ^electric InterCom 100 
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APPENDiX E 



SAMPLE OF PROGRAWtD INSTRUCTION 
DEMONSTRATING THE USE OF TYPOGRAPHY 



107 



TAEG Report No. na 



ERIC 



PRESENT WEATHER SYMTOLS 



Symtolic Numbers 



NWS.AG-A-090 



November 1979 



This program was developed by the 
TRAINING ANALYSIS AND EVALUATION GROUP 
Orlando, Florida 
and the 

NAVAL OCEANOGRAPHIC OFFICE 
Bay St, Louis, Mississippi 



TYPOGRAPHY hy r. Laurenci' Kcelef, Ph i). 
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INTr DUCTION 



To plot weather you must know which 
symbol to write for each symbolic 
number in the present weather 
position in various weather 
messages. TTiis is one of several 
essential skills required in 
plotting weattier information on 
surface charts. 

The module has four parts. 

In pare 1 you will leiam tiie general 

types of present and past weattier 

noted in each of the ten groups on 

the Present Weather Chart . , , _ Go to 3 
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INTRODUCTION 



In part 2 Past Weatiier symbol/number 
pairs are presented. 

In part 3 you will learn tiie symbol/ 
number pairs in tiie first 5 grcftips 
on tiie Present Weatiier Chart. 

Then in part 4 you will learn the 
symbol/number pairs in Ae last 5 groups. 

Learning Completion of this module will 

Objective enable you to write tiie correct 

graphic symbol for each symbolic 
number representing the present and 



Go 
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INTRODUCTION 



past weatiier in meterological 
reports. Given any of the 100 
present weather numbers, you will be 
able to write tiie correct meaning or 
graphic symbd without error or 
hesitation, and witiiout referring to 
a Present Weatiier or Past Weather 
Chart. 

This lesson will help you learn 
easily and quickly. 

For best r^ulte, fidlow ttie directtons. 
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LEARNING OBJECTIVE FOR PART 1: 



In this part you will learn to 
recall the type of present weather 
noted in 10 groups. Each group is a 
row of symbols in the Present 
Weather Chart, For example, you will 
learn that the 40s Group is for 
types of fogj the 50s Group is 
for types of drizzle, and the 80s 
Group is for types of showers, with 
past weather being the same* For 
sample Past Weather figure 4 is for 
fog, figure 6 is for drizzle, etc. 
While there are exceptions, these 
rules generally are true, Being able 
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LEARNING OBJECTIVE FOR PART 1* 



to recall which types of weather are 
generally noted in each of iJie 
numbered grcwps will make it easier 
for you to learn tiie symbolic 
numbers for each of tiie different 
graphic present weatiier symbols, and 
their past wather cwmterparts. 
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MEMORY AIDS 



ERIC 



Practice reading the following verse 
until you can recall, the peg words tfiat 
rhyme with each of the numbers. 

Zero is for Hero 

One is for Gun 

Two is for Shoe 

Three is for ^^e 

Four is for Door 

Five is for Hive 

Six is for Stick 

Seven is for Heaven 

Eight is for Gate 

Nine is for Wine 
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MiMORY AIDS 



Knowing the peg words (and sentences 
to be presented later which use 
these peg words) will help you start 
a chain of associations which will 
make it easy for you to recall the 
meanings of symbolic numbers. 
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MEMORY AIDS 



Exiunple of how peg wwds will help 
ymi remember numbersi 
Given a report with tiie present 
weatiier number "37", note Aat ti 
first dipt is -*3", which rhymes 
with the peg word ''':^ee". Then 
visualiEe ''wind blowing tfirough tiie 
branches of a tree." This renunds 
you tiiat all present weatiier numbers 
with '*3'' as the first digit concern 
"blowing/drifting". (Later you will 
learn tiie complete definition of all 
present weather symbols wiih Aeir 
respective numbers.) 
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OPTIONAL CRITERION TEST 



Do ^lu ab'eady 
know tiiese 
gtmps? 

Test Yourself 

This criterion test is designed to 
test your knowledge of the present 
weather gmips. If you already know 
the groups, tius test will reinforce 
your knowledge. If you don't know 
tiie ^upa, it will help identify 
those areas to study. 

Directfona 1. Recall ttie definition of each 

I group on tiie nect frame. 

2. Write each group number and 
definition on a piece of paper. 
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OPTION^^L CRITERION TEST 



Group 9 

Group 0 

Group 8 

Group 5 

Group 2 

Group 4 
Group 1 

Group 3 

Group 6 

Group 7 
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OPTIONAL CRITiRION TEST 



Erections l . Check your answers now. 

2. Put an X thraigh your wron 
answers. 
Grmips Answers 

Group 9 Thunderstorm 
Group 0 Reduced visibihty 
Group 8 Showers 
Group 5 Drizzle 
Group 2 Weather ended 

Group 4 Fog 

Group 1 Distant weather 

Group 3 Blowing/drifting 

Group 6 Rain 

Group 7 Snow 



119 

lis 



TAEG Report No* 88 



13 



OPTIONAL CRITERION TEST 



Did you pass? 1 . Did you miss 2 or less of the 

P'oup definitions? If so, tiien 
learn tiie ones &at you missed by 
studying them on 12 

tiiten go to 29 

2, If you missed more than 2 of tiie 

group definitions, complete this 
learning program. 
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ORGANIZATION OF THE LEARNING PROGRAM 



Page numbers are located at tiie top 
left or right corner of each page. 

Directions on how to proceed through 
the pro-am are located at the 
bottom, right corner. 
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GROUPS TO BE LEARNED 



15 



The groups are: 



Group 0 
Groups 
Groups 
Group 9 



Group 1 
Group 4 
7 



G: 



You will learn to recognize and 
define these groups in the next 
few pages. 



1 
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LEARN CROUP NUMBERS AND DEFINITIONS 



Wrecttons i . Look carefully on the nmt page 

at tiie defliiition and memory aid for 

each group, 

2. Say aie memozy aid and definittmi 

to yourself aa you look at 
the group. 

3. Understand how tiie memory aid 

helps you remember the group. 

4. Cover the definitions, then look 

at each group number and recall the 
definittons, 

5. Repeat tius 4 or 5 times for 

each of tf\e groups. 
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LEARN GROUP NUMBiRS AND DEFINITIONS 



Deflmtion Group Memory Aid 

Reduced visibility Group 0 Hero - Almost 

blinded by 
smoke(REDUCED 
VISIBILITY), he 
saved the child 
from tlie burning 
house. 

Distant weather Group 1 Gun - 1 have gun, 

keep your DISTANCE. 
Weather ended Group 2 Shoe - A kick in the 

pants ENDED the 
argument. 
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LEARN GROUP NUMBER AND DEFINITION 



Definition 

Blowing/drifting 

Fog 
Drizzle 



Rain 



Group 3 



Group 4 



Group 5 



Group 6 



Memory Aid 

Tree ^ wind BLOWING 
through the 
branches of a TREE, 

Door - It's hard to 
find your DOOR in 
tlieFOG. 

Hive "DRIPS of 
honey from a hive 
look like the 
symbol for drizzle. 
Stick - a stick 
noats in a RAIN 
puddle. 
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LEARN GROUP NUMBER AND DEFINITION 



Defimtion 

Snow 



Showers 
Thunderstorm 



Group 7 



Group 8 
9 



Memory Aid 

Heaven - Snow FLAKES 
float down from 
heaven. 

Gate -rain SHOWERS, 
open flood gate. 

Wine - The drunk hid 
in ttie wine cellar 
dumg the 

THUNDERSTORM. 
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PRACTICE DEFINING THE GROUPS 



Directions l , Read all directions before 

you practice, 

2. Try to recall the definition 

of each group in the exercise 
on page 21 , 

3. Write your first impression of 

the group's definition. 

4. If the definition is difTicult 

to remember, recall the memory aid 
first, tiien recall the definition. 

5. Check your answer immediately 

i n the answer section below the 
practice exercise. 
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21 



PRACTICE DEFINING THE GROUPS 



Practice 


Git)up 9 Grdup 4 


Group 8 


Exercise 


Group 5 Group 3 


Group 8 




Grmip 3 Group 4 


Group 9 




Group 5 Group 9 


Groups 




Group 4 Group 8 


Group 5 




Definition 




Group 4 


Fog 




Group 9 


Thurderstorm 




Group 8 


Showers 




Group 5 


Drizzle 




Group 3 


B lowi ng/dr i f t i ng 
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PRACTACE DEFINING THE GROUPS 



Practice 
Exercise 



Group 2 
Group 0 
Group 1 
Group 6 
Group 7 



Group 2 


Group 6 


Group 0 


Group i 


Group 7 


Group 1 


Group 0 


Group 2 


Group 6 


Group 7 


Group 7 


Group 0 


Group 2 


Group 1 


Group 6 


Defimtion 

Weather ended 






Reduced visibility 




Distant weathe 


r 




Rain 






Snow 
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PRACTICE DEFINING THE GROUPS 



Directions Keep practicing until you can 

define all the groups witiiout 
pausing, 

2. Practice defining ttie most 

difFicult groups for you more 
tiian &e easier groups. 

3. Vary the way you go through the 

practice groups. 

(Left to right, then right to left.) 

4. Keep practicing until you recall 

the answers without hesitating. 

To practice Go back to 21 

After practicing Go to 24 
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TEST YOURSELF 



Directions i . Copy the group number and then 

write the definition for each. 

2. If "n.. '.-aju a h ^ory aid 

go to 25 

3. Refer to the memory aids only when 

you can't think of the definition. 



®«^Test Group 3 Group 0 

Group 2 Group 5 

Group 1 Group 6 

Group 8 Group 7 

Group 4 Group 9 
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TEST YOURSELF 



Groups Memory Aids 

Group 3 Tree - wind BLOWING through the 

branches of a TREE. 
Group 2 Shoe - A kick in the pants ENDED the 

argument. 

Group 1 Gun - 1 have gun^ keep your 

DISTANCE. 

Group 8 Gate - rain SHOWERS, open flood 

gate. 

Group 4 Door - It's hard to find your DOOR 

in the FOG. 

Group 0 Hero - Almost blinded by smoke 

(REDUCED VISIBILITY), he saved 
the child from the burning house. 
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TEST YOURSELF 



Groups Memoty Aids 

Group 5 Hive - DRIPS of honey from a hive 

look like the symbol for drizzle. 

Group 6 Stick - a stick floats in a RAIN 

puddle. 

Group 7 Heaven • Snow FLAKES float dow from 

heaven. 

Group 9 Wine - The drunk hid in the wine 

cellar during the THUNDERSTORM. 



Go back to 2'^' 
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TEST YOURSELF 



Group 


Answere 


Group 3 


Blovsdng/drifting 


Group 2 


Weather ended 


Group 1 


Distant weather 


Group 8 


Showers 


Group 4 


Fog 


Group 0 


Reduced visibility 


Group 5 


Drizzle 


Group 6 


Rain 


Group 7 


Snow 


Group 9 


Thunderstorm 



13 



3 
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TEST YOURSELF 



L If you missed any definitions, 
you need more practice 

- skip groups you already know 
" spend extra time on those groups 
you find difficult to remember. 

- do the self test after you 
practice each time 

To practice 

go back to 21 

2. If you correctly defined all the 

groups CONGRATULATIONS! 

For next part of module _ _ go to 29 



End of Test 
Directions 
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INTRODUCTION 



In part 2 of this module you will 
learn to recall the symbol/number 
pairs for Past Weatiier. There are 7 
past weaker symbols. They 
represent blowing/drifting 
phenomena, fog, drizzle, rain, 
snoWj showers and tiiunderstorms. 

Learning 
Objective 
Part 2 

After you have finished wito this 
part of the module you will be able 
to write the correct symbol for any 
Past Weather number. 
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G^^riONAL CRITERION TEST 



Do you already 
know fliese 
symbds? 



TestYo^alf 

1. Recall the graphic symbols tor 

each number on tiie next frames. 

2. Write each number and its 

graphic symbol on a piece 
of paper. 



ERIC <3oto31 



TAE5 Report No. 88 



OPTIONAL CRITERION TEST: SYMBOLS 



3 
4 
6 
9 
5 
7 
8 
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OPTIONAL CRITERION TEST 



Directions 



Numbers 
3 
4 
6 
9 
5 
7 
8 



1. Check your answers now. 

2. Put an X through your wrong 
answers. 

Answers 
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OPTIONAL CRITERION TEST 



Did ycM pass? 1 , Did you miss 1 of tiiese eymbols? 

If 80, tiien learn the one tiiat 
ym miaaed by studying it on 0032. 



2. If you missed more than 1 of tiie 

symbols^ complete tiiis learning 
program. 
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ORGANIZATION OF THE LEARNING PROGRAM 



Overview The symbols will be presented 

in one practice group. You will 
learn the symbols in this group. 
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SYMBOL SET 1 



Tile numbers in ihis set are: 

2 4 5 6 18 

You will learn to recognize and 
coordinate ^eee numbers 
with tiieir respective symbols 
in tile next few pages. 
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SYMBOL SET 1: LiARN THE SYMBOLS 



Directions 1 . Look carefully on the next page at 

each ^Ephic symbol and memory sid 
for each number, 

2. Recall the memo^ aid and 

^aphie symbol as you look at 
the number. 

3. Understand how Uie memory aid 

helps you coordinate the symbol 
with a number. 

4. Cbver the symbols, tiien look at 

each number and recall ttie 
^aphic symbol 

5. Repeat this 4 or 6 times for 

each of the numbers. 
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SYMBOL SET 1- LEARN THE SYMBOLS 



Graphic Symbol Number Memon^ Aid 

/ + 3 Blowing/drifting 

~ 4 Fog 

• 5 ^vimie 

• 6 xtain 

• 7 Snow 
V 8 Showers 

R 9 Thunderstorms 
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SYMBOL SET 1- PRACTICE 



Erections i. Rgad all directions before 

you practice. 

2. Try to recall the graphic symbol 

for each number in the exercise 
on page 39 . 

3. Write your first impression of 

ra| 'f- symbol. 

4. If tiie graphic symbol is difficult 

to remember, recall the memory aid 
first, then recall the graphic 
symbol. 

5. Chock your answer immediately 

in the answer section below the 
practice numbers. 
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SYMBOL SET 1: PRACTICE 



Practice 
Numbers 



Number 
3 
5 
6 



4 7 6 3 6 

5 9 4 3 7 

7 5 3 4 8 

8 6 4 9 8 
5 4 9 8 5 



8 9 6 7 

8 9 6 5 
3 5 7 9 
3 7 6 5 

9 7 3 6 



Graphic Symbol 



4 
8 
9 



V 
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SYMBOL SET 1- PRACTICE 



DirectiuB^: 1, Keep practicing uiitil you can 

recall the symbols for each 
number without pausing, 

2, Practice the moat difficult 

numberg more than the 
easier ones. 

3. Vary the way you go tihrough the 

practice numbers, 

(Left to right, tiien right to left j 

4» Keep practicing until you recall 

ttie answers witiiout hesitating. 

To practice Go back to 39 

After practicing Go to 41 



i 
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SYMBOL SET 1: i ST YOUPSFLF 



Self Test 



1 , Write the ^aphic symbol for each 

number in tiie self test. 
Use scratch paper. 

2, If you want a memory aid ....... 

3, Refer to the memory aids only when 

you can't think of the bs 



go to 42 



4 
5 
8 
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3 
6 
7 
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SYMBOL SET 1 • TEST YOURSELF 



Nunibers 


Memory Aids 


4 


Fog 


5 


Drizzle 


8 


Showers 


9 


Thunderstorms 


3 


Blowing/drifting 


6 


Rain 


7 


Snow 



Us 
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SYMBOL SET 1: TEST YOURSELF 



Numbers Answers 



4 




5 


f 


8 


• 


9 


ft 


3 




6 


• 


7 


• 



ii9 
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SYMBOL SET 1: TEST YOURSELF 



End of Test 
Erections 



L If you rmssed any anawerSj 
you need more practice, 

• Skip symbols you already know 

• Spend CTtra time on those 
symbols/numbers you find 
difficult to remember. 

• do the self test after ym 
practice each time 

To practice Go Back to 39 



2. If you correctly coordinated 

all the symbols witii numbers 

congratulations! 
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